me/guix
Archived
1
0
Fork 0
Code Activity

gnu: tabixpp: Use G-expressions.

Browse source 
* gnu/packages/bioinformatics.scm (tabixpp)[source]: Reindent.
[arguments]: Use search-input-file and search-input-directory.
[source, arguments]: Rewrite using G-expressions. Do not return #t from
snippets and custom phases.

Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
This commit is contained in:
Arun Isaac 2022-04-26 18:16:31 +05:30 • committed by Efraim Flashner
parent 9017c2406b
commit ff1fd3b012
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 39 additions and 41 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/bioinformatics.scm
View file

@ -14292,27 +14292,26 @@ mutations from scRNA-Seq data.")
(base32 "1k2a3vbq96ic4lw72iwp5s3mwwc4xhdffjj584yn6l9637q9j1yd")) (base32 "1k2a3vbq96ic4lw72iwp5s3mwwc4xhdffjj584yn6l9637q9j1yd"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
`(begin #~(begin
(delete-file-recursively "htslib") #t)))) (delete-file-recursively "htslib")))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
(list htslib zlib)) (list htslib zlib))
(arguments (arguments
`(#:tests? #f ; There are no tests to run. (list #:tests? #f ; There are no tests to run.
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) ; There is no configure phase. (delete 'configure) ; There is no configure phase.
;; The build phase needs overriding the location of htslib. ;; The build phase needs overriding the location of htslib.
(replace 'build (replace 'build
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((htslib-ref (assoc-ref inputs "htslib")))
(invoke "make" (invoke "make"
(string-append "HTS_LIB=" htslib-ref "/lib/libhts.a") (string-append "HTS_LIB=" (search-input-file inputs "/lib/libhts.a"))
(string-append "INCLUDES= -I" htslib-ref "/include/htslib") (string-append "INCLUDES= -I" (search-input-directory inputs "/include/htslib"))
"HTS_HEADERS=" ; No need to check for headers here. "HTS_HEADERS=" ; No need to check for headers here.
(string-append "LIBPATH=-L. -L" htslib-ref "/include")) (string-append "LIBPATH=-L. -L" (search-input-directory inputs "/include")))
(invoke "g++" "-shared" "-o" "libtabixpp.so" "tabix.o" "-lhts") (invoke "g++" "-shared" "-o" "libtabixpp.so" "tabix.o" "-lhts")
(invoke "ar" "rcs" "libtabixpp.a" "tabix.o")))) (invoke "ar" "rcs" "libtabixpp.a" "tabix.o")))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
@ -14336,8 +14335,7 @@ mutations from scRNA-Seq data.")
Description: C++ wrapper around tabix project~@ Description: C++ wrapper around tabix project~@
Libs: -L${libdir} -ltabixpp~@ Libs: -L${libdir} -ltabixpp~@
Cflags: -I${includedir}~%" Cflags: -I${includedir}~%"
out ,version))) out #$version)))))))))
#t))))))
(home-page "https://github.com/ekg/tabixpp") (home-page "https://github.com/ekg/tabixpp")
(synopsis "C++ wrapper around tabix project") (synopsis "C++ wrapper around tabix project")
(description "This is a C++ wrapper around the Tabix project which abstracts (description "This is a C++ wrapper around the Tabix project which abstracts