aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnu/packages/bioinformatics.scm115
1 files changed, 115 insertions, 0 deletions
diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 2815194b7e..e7ac6bdd09 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -50,6 +50,7 @@
#:use-module (gnu packages cpio)
#:use-module (gnu packages curl)
#:use-module (gnu packages documentation)
+ #:use-module (gnu packages databases)
#:use-module (gnu packages datastructures)
#:use-module (gnu packages file)
#:use-module (gnu packages flex)
@@ -84,6 +85,7 @@
#:use-module (gnu packages readline)
#:use-module (gnu packages ruby)
#:use-module (gnu packages serialization)
+ #:use-module (gnu packages shells)
#:use-module (gnu packages statistics)
#:use-module (gnu packages swig)
#:use-module (gnu packages tbb)
@@ -9537,3 +9539,116 @@ correct interaction matrices, identify and compare the so-called
interaction matrices, and finally, extract structural properties from the
models. TADbit is complemented by TADkit for visualizing 3D models.")
(license license:gpl3+)))
+
+(define-public kentutils
+ (package
+ (name "kentutils")
+ ;; 302.1.0 is out, but the only difference is the inclusion of
+ ;; pre-built binaries.
+ (version "302.0.0")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append "https://github.com/ENCODE-DCC/kentUtils/"
+ "archive/v" version ".tar.gz"))
+ (file-name (string-append name "-" version ".tar.gz"))
+ (sha256
+ (base32
+ "134aja3k1cj32kbk1nnw0q9gxjb2krr15q6sga8qldzvc0585rmm"))
+ (modules '((guix build utils)
+ (srfi srfi-26)
+ (ice-9 ftw)))
+ (snippet
+ '(begin
+ ;; Only the contents of the specified directories are free
+ ;; for all uses, so we remove the rest. "hg/autoSql" and
+ ;; "hg/autoXml" are nominally free, but they depend on a
+ ;; library that is built from the sources in "hg/lib",
+ ;; which is nonfree.
+ (let ((free (list "." ".."
+ "utils" "lib" "inc" "tagStorm"
+ "parasol" "htslib"))
+ (directory? (lambda (file)
+ (eq? 'directory (stat:type (stat file))))))
+ (for-each (lambda (file)
+ (and (directory? file)
+ (delete-file-recursively file)))
+ (map (cut string-append "src/" <>)
+ (scandir "src"
+ (lambda (file)
+ (not (member file free)))))))
+ ;; Only make the utils target, not the userApps target,
+ ;; because that requires libraries we won't build.
+ (substitute* "Makefile"
+ ((" userApps") " utils"))
+ ;; Only build libraries that are free.
+ (substitute* "src/makefile"
+ (("DIRS =.*") "DIRS =\n")
+ (("cd jkOwnLib.*") "")
+ ((" hgLib") "")
+ (("cd hg.*") ""))
+ (substitute* "src/utils/makefile"
+ ;; These tools depend on "jkhgap.a", which is part of the
+ ;; nonfree "src/hg/lib" directory.
+ (("raSqlQuery") "")
+ (("pslLiftSubrangeBlat") "")
+
+ ;; Do not build UCSC tools, which may require nonfree
+ ;; components.
+ (("ALL_APPS =.*") "ALL_APPS = $(UTILS_APPLIST)\n"))
+ #t))))
+ (build-system gnu-build-system)
+ (arguments
+ `( ;; There is no global test target and the test target for
+ ;; individual tools depends on input files that are not
+ ;; included.
+ #:tests? #f
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'fix-paths
+ (lambda _
+ (substitute* "Makefile"
+ (("/bin/echo") (which "echo")))
+ #t))
+ (add-after 'unpack 'prepare-samtabix
+ (lambda* (#:key inputs #:allow-other-keys)
+ (copy-recursively (assoc-ref inputs "samtabix")
+ "samtabix")
+ #t))
+ (delete 'configure)
+ (replace 'install
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((bin (string-append (assoc-ref outputs "out")
+ "/bin")))
+ (copy-recursively "bin" bin))
+ #t)))))
+ (native-inputs
+ `(("samtabix"
+ ,(origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "http://genome-source.cse.ucsc.edu/samtabix.git")
+ (commit "10fd107909c1ac4d679299908be4262a012965ba")))
+ (sha256
+ (base32
+ "0c1nj64l42v395sa84n7az43xiap4i6f9n9dfz4058aqiwkhkmma"))))))
+ (inputs
+ `(("zlib" ,zlib)
+ ("tcsh" ,tcsh)
+ ("perl" ,perl)
+ ("libpng" ,libpng)
+ ("mysql" ,mysql)
+ ("openssl" ,openssl)))
+ (home-page "http://genome.cse.ucsc.edu/index.html")
+ (synopsis "Assorted bioinformatics utilities")
+ (description "This package provides the kentUtils, a selection of
+bioinformatics utilities used in combination with the UCSC genome
+browser.")
+ ;; Only a subset of the sources are released under a non-copyleft
+ ;; free software license. All other sources are removed in a
+ ;; snippet. See this bug report for an explanation of how the
+ ;; license statements apply:
+ ;; https://github.com/ENCODE-DCC/kentUtils/issues/12
+ (license (license:non-copyleft
+ "http://genome.ucsc.edu/license/"
+ "The contents of this package are free for all uses."))))