[bug#27774] [PATCH] gnu: add libgeotiff

["Björn Höfling" <bjoern.hoefling@bjoernhoefling.de>]

From 4e96405382258d0aa3a1760ac77dd0ac72706786 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20H=C3=B6fling?=
 <bjoern.hoefling@bjoernhoefling.de>
Date: Tue, 24 Jan 2017 09:00:07 +0100
Subject: [PATCH] gnu: add libgeotiff

* gnu/packages/geo.scm (libgeotiff): New variable.
---
 gnu/packages/geo.scm | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)

diff --git a/gnu/packages/geo.scm b/gnu/packages/geo.scm
index d8d5490f3..019731158 100644
--- a/gnu/packages/geo.scm
+++ b/gnu/packages/geo.scm
@@ -25,9 +25,11 @@
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
   #:use-module (guix utils)
+  #:use-module (gnu packages compression)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages gnome)
   #:use-module (gnu packages gtk)
+  #:use-module (gnu packages image)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages webkit)
   #:use-module (gnu packages xml))
@@ -133,6 +135,60 @@ and driving.")
     (home-page "https://wiki.gnome.org/Apps/Maps")
     (license license:gpl2+)))
 
+(define-public libgeotiff
+  (package
+   (name "libgeotiff")
+   (version "1.4.2")
+   (source (origin
+            (method url-fetch)
+            (uri (string-append "http://download.osgeo.org/geotiff/libgeotiff/"
+                                "libgeotiff-"
+                                version ".tar.gz"))
+            (sha256
+             (base32
+              "0vjy3bwfhljjx66p9w999i4mdhsf7vjshx29yc3pn5livf5091xd"))))
+   (build-system gnu-build-system)
+   (arguments
+    `(#:configure-flags
+      `( ,(string-append "--with-zlib")
+         ,(string-append "--with-jpeg")
+         ,(string-append "--with-libtiff="
+                         (assoc-ref %build-inputs "libtiff")))
+    #:phases
+    (modify-phases %standard-phases
+      (add-after
+          'unpack 'delete-nonfree-files
+        (lambda _
+          ;; Remove .csv-files, distributed from
+          ;; EPSG under a restricted license.
+          ;; See LICENSE.txt for full license text.
+          (for-each delete-file (find-files "." "\\.csv$"))
+          ;; Now that we remove the csv-files, we need to modify the Makefile:
+          (substitute* "Makefile.in"
+            (("all-am: Makefile \\$\\(LTLIBRARIES\\) \\$\\(DATA\\) \\$\\(HEADERS\\) geo_config.h")
+             "all-am: Makefile $(LTLIBRARIES) $(HEADERS) geo_config.h")
+            (("install-data-am: install-dist_csvDATA install-includeHEADERS")
+             "install-data-am: install-includeHEADERS"))
+          #t)))))
+   (inputs `(("libjpeg" ,libjpeg)
+             ("libtiff" ,libtiff)
+             ("proj.4" ,proj.4)
+             ("zlib" ,zlib)))
+   (synopsis "Library for handling GeoTIFF (geographic enabled TIFF)")
+   (description
+    "Libgeotiff is a library on top of libtiff for reading and writing
+GeoTIFF information tags.")
+   ;; This is a mixture of various contributions under different licenses
+   ;; Not that the EPSG database is NOT "free to use" as the LICENSE file
+   ;; states, as its commercial redistribution is restricted.
+   ;; We thus remove it from the package.
+   (license (list license:public-domain
+                  license:x11
+                  license:bsd-3
+                  (license:non-copyleft "file://LICENSE"
+                                  "See LICENSE in the distribution.")))
+   (home-page "https://trac.osgeo.org/geotiff/")))
+
 (define-public proj.4
   (package
     (name "proj.4")
-- 
2.12.2