[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: gnu: Add starlong.
From: |
guix-commits |
Subject: |
01/01: gnu: Add starlong. |
Date: |
Fri, 22 Mar 2019 11:17:07 -0400 (EDT) |
rekado pushed a commit to branch master
in repository guix.
commit fdfaba90320b93af9014eb35261486d3311febd1
Author: Ricardo Wurmus <address@hidden>
Date: Fri Mar 22 16:15:16 2019 +0100
gnu: Add starlong.
* gnu/packages/bioinformatics.scm (starlong): New variable.
---
gnu/packages/bioinformatics.scm | 22 ++++++++++++++++++++++
1 file changed, 22 insertions(+)
diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index ccb49ca..1836939 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -6347,6 +6347,28 @@ sequences.")
;; STAR is licensed under GPLv3 or later; htslib is MIT-licensed.
(license license:gpl3+)))
+(define-public starlong
+ (package (inherit star)
+ (name "starlong")
+ (arguments
+ (substitute-keyword-arguments (package-arguments star)
+ ((#:make-flags flags)
+ `(list "STARlong"))
+ ((#:phases phases)
+ `(modify-phases ,phases
+ ;; Allow extra long sequence reads.
+ (add-after 'unpack 'make-extra-long
+ (lambda _
+ (substitute* "source/IncludeDefine.h"
+ (("(#define DEF_readNameLengthMax ).*" _ match)
+ (string-append match "900000\n")))
+ #t))
+ (replace 'install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((bin (string-append (assoc-ref outputs "out") "/bin/")))
+ (install-file "STARlong" bin))
+ #t))))))))
+
(define-public subread
(package
(name "subread")