TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: fastahack: Use G-expressions.

Browse source 
* gnu/packages/bioinformatics.scm (fastahack)[arguments]: Rewrite
using G-expressions. Do not return #t from custom phases.

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

60
gnu/packages/bioinformatics.scm
View file

@ -14502,36 +14502,35 @@ (define-public fastahack
(base32 "0rp1blskhzxf7vbh253ibpxbgl9wwgyzf1wbkxndi08d3j4vcss9")))) (base32 "0rp1blskhzxf7vbh253ibpxbgl9wwgyzf1wbkxndi08d3j4vcss9"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; Unclear how to run tests: https://github.com/ekg/fastahack/issues/15 (list #:tests? #f ; Unclear how to run tests: https://github.com/ekg/fastahack/issues/15
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) ; There is no configure phase. (delete 'configure) ; There is no configure phase.
(add-after 'unpack 'patch-source (add-after 'unpack 'patch-source
(lambda _
(substitute* "Makefile"
(("-c ") "-c -fPIC "))
#t))
(add-after 'build 'build-dynamic
(lambda _
(invoke "g++"
"-shared" "-o" "libfastahack.so"
"Fasta.o" "FastaHack.o" "split.o" "disorder.o")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib"))
(bin (string-append out "/bin")))
(mkdir-p (string-append out "/include/fastahack"))
(for-each
(lambda (file)
(install-file file (string-append out "/include/fastahack")))
(find-files "." "\\.h$"))
(install-file "fastahack" bin)
(install-file "libfastahack.so" lib)
(mkdir-p (string-append lib "/pkgconfig"))
(with-output-to-file (string-append lib "/pkgconfig/fastahack.pc")
(lambda _ (lambda _
(format #t "prefix=~a~@ (substitute* "Makefile"
(("-c ") "-c -fPIC "))))
(add-after 'build 'build-dynamic
(lambda _
(invoke "g++"
"-shared" "-o" "libfastahack.so"
"Fasta.o" "FastaHack.o" "split.o" "disorder.o")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib"))
(bin (string-append out "/bin")))
(mkdir-p (string-append out "/include/fastahack"))
(for-each
(lambda (file)
(install-file file (string-append out "/include/fastahack")))
(find-files "." "\\.h$"))
(install-file "fastahack" bin)
(install-file "libfastahack.so" lib)
(mkdir-p (string-append lib "/pkgconfig"))
(with-output-to-file (string-append lib "/pkgconfig/fastahack.pc")
(lambda _
(format #t "prefix=~a~@
exec_prefix=${prefix}~@ exec_prefix=${prefix}~@
libdir=${exec_prefix}/lib~@ libdir=${exec_prefix}/lib~@
includedir=${prefix}/include/fastahack~@ includedir=${prefix}/include/fastahack~@
@ -14542,8 +14541,7 @@ (define-public fastahack
Description: Indexing and sequence extraction from FASTA files~@ Description: Indexing and sequence extraction from FASTA files~@
Libs: -L${libdir} -lfastahack~@ Libs: -L${libdir} -lfastahack~@
Cflags: -I${includedir}~%" Cflags: -I${includedir}~%"
out ,version)))) out #$version)))))))))
#t)))))
(home-page "https://github.com/ekg/fastahack") (home-page "https://github.com/ekg/fastahack")
(synopsis "Indexing and sequence extraction from FASTA files") (synopsis "Indexing and sequence extraction from FASTA files")
(description "Fastahack is a small application for indexing and (description "Fastahack is a small application for indexing and