01/01: gnu: Add niftilib.

[John Darrington]

jmd pushed a commit to branch master
in repository guix.

commit 21122bd79e7f9b0b5349ffffe2c146bace7205dc
Author: John Darrington <address@hidden>
Date:   Tue Mar 7 07:59:21 2017 +0100

    gnu: Add niftilib.
    
    * gnu/packages/image.scm (niftilib): New variable.
---
 gnu/packages/image.scm | 59 +++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 58 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm
index f2afa98..73c5298 100644
--- a/gnu/packages/image.scm
+++ b/gnu/packages/image.scm
@@ -6,7 +6,7 @@
 ;;; Copyright © 2014, 2016 Ricardo Wurmus <address@hidden>
 ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <address@hidden>
 ;;; Copyright © 2015 Amirouche Boubekki <address@hidden>
-;;; Copyright © 2014 John Darrington <address@hidden>
+;;; Copyright © 2014, 2017 John Darrington <address@hidden>
 ;;; Copyright © 2016 Leo Famulari <address@hidden>
 ;;; Copyright © 2016, 2017 Leo Famulari <address@hidden>
 ;;; Copyright © 2016, 2017 Efraim Flashner <address@hidden>
@@ -1164,3 +1164,60 @@ interface.  It supports color space extensions that 
allow it to compress from
 and decompress to 32-bit and big-endian pixel buffers (RGBX, XBGR, etc.).")
     (license (list license:bsd-3        ; jsimd*.[ch] and most of simd/
                    license:ijg))))      ; the rest
+
+(define-public niftilib
+  (package
+   (name "niftilib")
+   (version "2.0.0")
+   (source (origin
+            (method url-fetch)
+            (uri (list (string-append "mirror://sourceforge/niftilib/"
+                                      "nifticlib/nifticlib_"
+                                      (string-join (string-split version #\.) 
"_")
+                                      "/nifticlib-" version ".tar.gz")))
+            (sha256
+             (base32 "123z9bwzgin5y8gi5ni8j217k7n683whjsvg0lrpii9flgk8isd3"))))
+   (build-system gnu-build-system)
+   (arguments
+    '(#:tests? #f
+      #:parallel-build? #f
+      #:phases
+      (modify-phases %standard-phases
+        (replace 'install
+                 (lambda _
+                   (for-each
+                    (lambda (dir)
+                      (let ((directory (assoc-ref %outputs "out")))
+                        (mkdir-p (string-append directory "/" dir))
+                        (zero? (system* "cp" "-a" dir directory))))
+                    '("bin" "lib" "include"))))
+        (replace 'configure
+                 (lambda _
+                   (substitute* "Makefile"
+                     (("^SHELL[ \t]*=[ \t]*csh")
+                      (string-append "SHELL = "
+                                     (assoc-ref %build-inputs "bash")
+                                     "/bin/sh"))
+
+                     (("^CFLAGS[ \t]*=[ \t]\\$\\(ANSI_FLAGS\\)")
+                      "CFLAGS = $(ANSI_FLAGS) -fPIC")
+
+                     (("^ZLIB_INC[ \t]*=[ \t]*-I/usr/include")
+                      (string-append "ZLIB_INC = -I"
+                                     (assoc-ref %build-inputs "zlib")
+                                     "/include"))
+
+                     (("^CP[ \t]*=[ \t]*cp")
+                      (string-append "CP = "
+                                     (assoc-ref %build-inputs "coreutils")
+                                     "/bin/cp")))
+                   #t)))))
+   (inputs
+    `(("zlib" ,zlib)))
+   (synopsis "Library for reading and writing files in the nifti-1 format")
+   (description "Niftilib is a set of i/o libraries for reading and writing
+files in the nifti-1 data format - a binary file format for storing
+medical image data, e.g. magnetic resonance image (MRI) and functional MRI
+(fMRI) brain images.")
+   (home-page "http://niftilib.sourceforge.net";)
+   (license license:public-domain)))