01/02: gnu: samtools: Install headers.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit 5bdda30b32676528bcfa0a169c30237fabaa4607
Author: Ricardo Wurmus <address@hidden>
Date:   Thu Jul 2 15:53:47 2015 +0200

    gnu: samtools: Install headers.
    
    * gnu/packages/bioinformatics.scm (samtools)[arguments]: Add phase
      "install-headers" to install header files.
---
 gnu/packages/bioinformatics.scm |   17 ++++++++++++++++-
 1 files changed, 16 insertions(+), 1 deletions(-)

diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index 03bb359..f6349cf 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -1774,6 +1774,10 @@ distribution, coverage uniformity, strand specificity, 
etc.")
        ;; systems.
        #:tests? ,(string=? (or (%current-system) (%current-target-system))
                            "x86_64-linux")
+       #:modules ((ice-9 ftw)
+                  (ice-9 regex)
+                  (guix build gnu-build-system)
+                  (guix build utils))
        #:make-flags (list "LIBCURSES=-lncurses"
                           (string-append "prefix=" (assoc-ref %outputs "out")))
        #:phases
@@ -1798,7 +1802,18 @@ distribution, coverage uniformity, strand specificity, 
etc.")
            (let ((lib (string-append (assoc-ref outputs "out") "/lib")))
              (mkdir-p lib)
              (copy-file "libbam.a" (string-append lib "/libbam.a"))))
-         (alist-delete 'configure %standard-phases)))))
+         (alist-cons-after
+          'install 'install-headers
+          (lambda* (#:key outputs #:allow-other-keys)
+            (let ((include (string-append (assoc-ref outputs "out")
+                                          "/include/samtools/")))
+              (mkdir-p include)
+              (for-each (lambda (file)
+                          (copy-file file (string-append include
+                                                         (basename file))))
+                        (scandir "." (lambda (name) (string-match "\\.h$" 
name))))
+              #t))
+          (alist-delete 'configure %standard-phases))))))
     (native-inputs `(("pkg-config" ,pkg-config)))
     (inputs `(("ncurses" ,ncurses)
               ("perl" ,perl)