me
/
guix
Archived
1
0
Fork 0
Code

gnu: tabixpp: Use G-expressions. 

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