unofficial mirror of guix-devel@gnu.org 
 help / color / mirror / code / Atom feed
* [PATCH] gnu: Add htsjdk.
@ 2015-03-05  9:25 Ricardo Wurmus
  2015-03-06 21:57 ` Andreas Enge
  2015-03-08 21:38 ` Ludovic Courtès
  0 siblings, 2 replies; 4+ messages in thread
From: Ricardo Wurmus @ 2015-03-05  9:25 UTC (permalink / raw)
  To: Guix-devel

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: 0001-gnu-Add-htsjdk.patch --]
[-- Type: text/x-patch, Size: 2988 bytes --]

From 8ead8074142f1a2e0d11d8a8eaf64b6707925467 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de>
Date: Thu, 5 Mar 2015 10:24:12 +0100
Subject: [PATCH] gnu: Add htsjdk.

* gnu/packages/bioinformatics.scm (htsjdk): New variable.
---
 gnu/packages/bioinformatics.scm | 46 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)

diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 8ed8710..d3b8919 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -27,6 +27,7 @@
   #:use-module (gnu packages)
   #:use-module (gnu packages base)
   #:use-module (gnu packages compression)
+  #:use-module (gnu packages java)
   #:use-module (gnu packages ncurses)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages pkg-config)
@@ -446,6 +447,51 @@ particular, reads spanning multiple exons.")
 from high-throughput sequencing assays.")
     (license license:gpl3+)))
 
+(define-public htsjdk
+  (package
+    (name "htsjdk")
+    (version "1.129")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "https://github.com/samtools/htsjdk/archive/"
+                    version ".tar.gz"))
+              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0asdk9b8jx2ij7yd6apg9qx03li8q7z3ml0qy2r2qczkra79y6fw"))
+              (modules '((guix build utils)))
+              ;; remove build dependency on git
+              (snippet '(substitute* "build.xml"
+                          (("failifexecutionfails=\"true\"")
+                           "failifexecutionfails=\"false\"")))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:modules ((srfi srfi-1)
+                  (guix build gnu-build-system)
+                  (guix build utils))
+       #:phases (alist-replace
+                 'build
+                 (lambda _
+                   (setenv "JAVA_HOME" (assoc-ref %build-inputs "jdk"))
+                   (zero? (system* "ant" "all"
+                                   (string-append "-Ddist="
+                                                  (assoc-ref %outputs "out")
+                                                  "/share/java/htsjdk/"))))
+                 (fold alist-delete %standard-phases
+                       '(configure install check)))))
+    (native-inputs
+     `(("ant" ,ant)
+       ("jdk" ,icedtea6 "jdk")))
+    (home-page "http://samtools.github.io/htsjdk/")
+    (synopsis "Java API for high-throughput sequencing data (HTS) formats")
+    (description
+     "HTSJDK is an implementation of a unified Java library for accessing
+common file formats, such as SAM and VCF, used for high-throughput
+sequencing (HTS) data.  There are also an number of useful utilities for
+manipulating HTS data.")
+    (license license:expat)))
+
 (define-public macs
   (package
     (name "macs")
-- 
2.1.0

^ permalink raw reply related	[flat|nested] 4+ messages in thread

* Re: [PATCH] gnu: Add htsjdk.
  2015-03-05  9:25 [PATCH] gnu: Add htsjdk Ricardo Wurmus
@ 2015-03-06 21:57 ` Andreas Enge
  2015-03-08 21:38 ` Ludovic Courtès
  1 sibling, 0 replies; 4+ messages in thread
From: Andreas Enge @ 2015-03-06 21:57 UTC (permalink / raw)
  To: Ricardo Wurmus; +Cc: Guix-devel

On Thu, Mar 05, 2015 at 10:25:59AM +0100, Ricardo Wurmus wrote:
> +    (arguments
> +     `(#:modules ((srfi srfi-1)
> +                  (guix build gnu-build-system)
> +                  (guix build utils))

Is this needed?

Andreas

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: [PATCH] gnu: Add htsjdk.
  2015-03-05  9:25 [PATCH] gnu: Add htsjdk Ricardo Wurmus
  2015-03-06 21:57 ` Andreas Enge
@ 2015-03-08 21:38 ` Ludovic Courtès
  2015-03-10 10:45   ` Ricardo Wurmus
  1 sibling, 1 reply; 4+ messages in thread
From: Ludovic Courtès @ 2015-03-08 21:38 UTC (permalink / raw)
  To: Ricardo Wurmus; +Cc: Guix-devel

Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de> skribis:

> From 8ead8074142f1a2e0d11d8a8eaf64b6707925467 Mon Sep 17 00:00:00 2001
> From: Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de>
> Date: Thu, 5 Mar 2015 10:24:12 +0100
> Subject: [PATCH] gnu: Add htsjdk.
>
> * gnu/packages/bioinformatics.scm (htsjdk): New variable.

LGTM.

Andreas Enge <andreas@enge.fr> skribis:

> On Thu, Mar 05, 2015 at 10:25:59AM +0100, Ricardo Wurmus wrote:
>> +    (arguments
>> +     `(#:modules ((srfi srfi-1)
>> +                  (guix build gnu-build-system)
>> +                  (guix build utils))
>
> Is this needed?

Yes, for ‘fold’ I guess.

Thanks,
Ludo’.

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: [PATCH] gnu: Add htsjdk.
  2015-03-08 21:38 ` Ludovic Courtès
@ 2015-03-10 10:45   ` Ricardo Wurmus
  0 siblings, 0 replies; 4+ messages in thread
From: Ricardo Wurmus @ 2015-03-10 10:45 UTC (permalink / raw)
  To: Ludovic Courtès; +Cc: Guix-devel


Ludovic Courtès writes:

> Andreas Enge <andreas@enge.fr> skribis:
>
>> On Thu, Mar 05, 2015 at 10:25:59AM +0100, Ricardo Wurmus wrote:
>>> +    (arguments
>>> +     `(#:modules ((srfi srfi-1)
>>> +                  (guix build gnu-build-system)
>>> +                  (guix build utils))
>>
>> Is this needed?
>
> Yes, for ‘fold’ I guess.

Correct.  It is required for 'fold'.
Thanks for the review!

~~ Ricardo

^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2015-03-10 10:45 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2015-03-05  9:25 [PATCH] gnu: Add htsjdk Ricardo Wurmus
2015-03-06 21:57 ` Andreas Enge
2015-03-08 21:38 ` Ludovic Courtès
2015-03-10 10:45   ` Ricardo Wurmus

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).