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

80
gnu/packages/bioinformatics.scm
View file

@ -14283,49 +14283,48 @@ mutations from scRNA-Seq data.")
(name "tabixpp") (name "tabixpp")
(version "1.1.0") (version "1.1.0")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/ekg/tabixpp") (url "https://github.com/ekg/tabixpp")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(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=" (search-input-file inputs "/lib/libhts.a"))
(string-append "HTS_LIB=" htslib-ref "/lib/libhts.a") (string-append "INCLUDES= -I" (search-input-directory inputs "/include/htslib"))
(string-append "INCLUDES= -I" htslib-ref "/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" (search-input-directory inputs "/include")))
(string-append "LIBPATH=-L. -L" htslib-ref "/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")) (lib (string-append out "/lib"))
(lib (string-append out "/lib")) (bin (string-append out "/bin")))
(bin (string-append out "/bin"))) (install-file "tabix++" bin)
(install-file "tabix++" bin) (install-file "libtabixpp.so" lib)
(install-file "libtabixpp.so" lib) (install-file "libtabixpp.a" lib)
(install-file "libtabixpp.a" lib) (install-file "tabix.hpp" (string-append out "/include"))
(install-file "tabix.hpp" (string-append out "/include")) (mkdir-p (string-append lib "/pkgconfig"))
(mkdir-p (string-append lib "/pkgconfig")) (with-output-to-file (string-append lib "/pkgconfig/tabixpp.pc")
(with-output-to-file (string-append lib "/pkgconfig/tabixpp.pc") (lambda _
(lambda _ (format #t "prefix=~a~@
(format #t "prefix=~a~@
exec_prefix=${prefix}~@ exec_prefix=${prefix}~@
libdir=${exec_prefix}/lib~@ libdir=${exec_prefix}/lib~@
includedir=${prefix}/include~@ includedir=${prefix}/include~@
@ -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