gnu/packages/geo.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
   3 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
   4 ;;; Copyright © 2017, 2018 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
   5 ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
   6 ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
   7 ;;; Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net>
   8 ;;; Copyright © 2018 Joshua Sierles, Nextjournal <joshua@nextjournal.com>
   9 ;;; Copyright © 2018, 2019 Julien Lepiller <julien@lepiller.eu>
  10 ;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net>
  11 ;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
  12 ;;; Copyright © 2019 Wiktor Żelazny <wzelazny@vurv.cz>
  13 ;;; Copyright © 2019 Hartmut Goebel <h.goebel@crazy-compilers.com>
  14 ;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
  15 ;;;
  16 ;;; This file is part of GNU Guix.
  17 ;;;
  18 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  19 ;;; under the terms of the GNU General Public License as published by
  20 ;;; the Free Software Foundation; either version 3 of the License, or (at
  21 ;;; your option) any later version.
  22 ;;;
  23 ;;; GNU Guix is distributed in the hope that it will be useful, but
  24 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  25 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  26 ;;; GNU General Public License for more details.
  27 ;;;
  28 ;;; You should have received a copy of the GNU General Public License
  29 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  30
  31 (define-module (gnu packages geo)
  32   #:use-module (guix build-system ant)
  33   #:use-module (guix build-system cmake)
  34   #:use-module (guix build-system glib-or-gtk)
  35   #:use-module (guix build-system gnu)
  36   #:use-module (guix build-system go)
  37   #:use-module (guix build-system meson)
  38   #:use-module (guix build-system python)
  39   #:use-module (guix build-system qt)
  40   #:use-module (guix build-system scons)
  41   #:use-module (guix build-system r)
  42   #:use-module (guix download)
  43   #:use-module (guix git-download)
  44   #:use-module (guix svn-download)
  45   #:use-module ((guix licenses) #:prefix license:)
  46   #:use-module (guix packages)
  47   #:use-module (guix utils)
  48   #:use-module (gnu packages)
  49   #:use-module (gnu packages algebra)
  50   #:use-module (gnu packages astronomy)
  51   #:use-module (gnu packages audio)
  52   #:use-module (gnu packages autotools)
  53   #:use-module (gnu packages backup)
  54   #:use-module (gnu packages bash)
  55   #:use-module (gnu packages bison)
  56   #:use-module (gnu packages boost)
  57   #:use-module (gnu packages check)
  58   #:use-module (gnu packages compression)
  59   #:use-module (gnu packages curl)
  60   #:use-module (gnu packages databases)
  61   #:use-module (gnu packages datastructures)
  62   #:use-module (gnu packages documentation)
  63   #:use-module (gnu packages elf)
  64   #:use-module (gnu packages flex)
  65   #:use-module (gnu packages fonts)
  66   #:use-module (gnu packages fontutils)
  67   #:use-module (gnu packages gettext)
  68   #:use-module (gnu packages gl)
  69   #:use-module (gnu packages glib)
  70   #:use-module (gnu packages gnome)
  71   #:use-module (gnu packages gtk)
  72   #:use-module (gnu packages image)
  73   #:use-module (gnu packages image-processing)
  74   #:use-module (gnu packages icu4c)
  75   #:use-module (gnu packages java)
  76   #:use-module (gnu packages lua)
  77   #:use-module (gnu packages maths)
  78   #:use-module (gnu packages pcre)
  79   #:use-module (gnu packages pdf)
  80   #:use-module (gnu packages perl)
  81   #:use-module (gnu packages photo)
  82   #:use-module (gnu packages pkg-config)
  83   #:use-module (gnu packages protobuf)
  84   #:use-module (gnu packages pulseaudio)
  85   #:use-module (gnu packages python)
  86   #:use-module (gnu packages python-web)
  87   #:use-module (gnu packages python-xyz)
  88   #:use-module (gnu packages qt)
  89   #:use-module (gnu packages readline)
  90   #:use-module (gnu packages swig)
  91   #:use-module (gnu packages sqlite)
  92   #:use-module (gnu packages textutils)
  93   #:use-module (gnu packages time)
  94   #:use-module (gnu packages web)
  95   #:use-module (gnu packages webkit)
  96   #:use-module (gnu packages wxwidgets)
  97   #:use-module (gnu packages xml))
  98
  99 (define-public geos
 100   (package
 101     (name "geos")
 102     (version "3.8.0")
 103     (source (origin
 104               (method url-fetch)
 105               (uri (string-append "http://download.osgeo.org/geos/geos-"
 106                                   version
 107                                   ".tar.bz2"))
 108               (sha256
 109                (base32
 110                 "1mb2v9fy1gnbjhcgv0xny11ggfb17vkzsajdyibigwsxr4ylq4cr"))))
 111     (build-system gnu-build-system)
 112     (arguments `(#:phases
 113                  (modify-phases %standard-phases
 114                    (add-after
 115                     'unpack 'patch-test-shebangs
 116                     (lambda _
 117                       (substitute* '("tests/xmltester/testrunner.sh"
 118                                      "tests/geostest/testrunner.sh")
 119                         (("/bin/sh") (which "sh")))
 120                       #t)))))
 121     (inputs
 122      `(("glib" ,glib)))
 123     (home-page "https://geos.osgeo.org/")
 124     (synopsis "Geometry Engine for Geographic Information Systems")
 125     (description
 126      "GEOS provides a spatial object model and fundamental geometric
 127 functions.  It is a C++ port of the Java Topology Suite (JTS).  As such,
 128 it aims to contain the complete functionality of JTS in C++.  This
 129 includes all the OpenGIS Simple Features for SQL spatial predicate
 130 functions and spatial operators, as well as specific JTS enhanced
 131 topology functions.")
 132     (license (list license:lgpl2.1+          ; Main distribution.
 133                    license:zlib              ; tests/xmltester/tinyxml/*
 134                    license:public-domain)))) ; include/geos/timeval.h
 135
 136 (define-public gnome-maps
 137   (package
 138     (name "gnome-maps")
 139     (version "3.32.2.1")
 140     (source (origin
 141               (method url-fetch)
 142               (uri (string-append "mirror://gnome/sources/" name "/"
 143                                   (version-major+minor version) "/"
 144                                   name "-" version ".tar.xz"))
 145               (sha256
 146                (base32
 147                 "1m191iq1gjaqz79ci3dkbmwrkxp7pzknngimlf5bqib5x8yairlb"))))
 148     (build-system meson-build-system)
 149     (arguments
 150      `(#:glib-or-gtk? #t
 151        #:phases
 152        (modify-phases %standard-phases
 153          (add-after 'unpack 'skip-gtk-update-icon-cache
 154            ;; Don't create 'icon-theme.cache'.
 155            (lambda _
 156              (substitute* "meson_post_install.py"
 157                (("gtk-update-icon-cache") "true"))
 158              #t))
 159          (add-after 'install 'wrap
 160            (lambda* (#:key inputs outputs #:allow-other-keys)
 161              (let ((out (assoc-ref outputs "out"))
 162                    (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
 163                    (geocode-glib-path (string-append
 164                                        (assoc-ref inputs "geocode-glib")
 165                                        "/lib"))
 166                    (goa-path (string-append
 167                               (assoc-ref inputs "gnome-online-accounts:lib")
 168                               "/lib"))
 169                    (gdk-pixbuf-path (string-append
 170                                      (assoc-ref inputs "gdk-pixbuf")
 171                                      "/lib"))
 172                    (webkitgtk-path (string-append
 173                                     (assoc-ref inputs "webkitgtk")
 174                                     "/lib")))
 175                (wrap-program (string-append out "/bin/gnome-maps")
 176                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
 177
 178                  ;; There seems to be no way to embed the path of
 179                  ;; libgoa-1.0.so.0, libwebkit2gtk-4.0.so.37,
 180                  ;; libgdk_pixbuf-2.0.so, libjavascriptcoregtk-4.0.so.18, and
 181                  ;; libgeocode-glib.so.0
 182                  `("LD_LIBRARY_PATH" ":" prefix (,goa-path
 183                                                  ,webkitgtk-path
 184                                                  ,gdk-pixbuf-path
 185                                                  ,geocode-glib-path)))
 186                #t))))))
 187     (native-inputs
 188      `(("gobject-introspection" ,gobject-introspection)
 189        ("intltool" ,intltool)
 190        ("pkg-config" ,pkg-config)))
 191     (inputs
 192      `(("folks" ,folks)
 193        ("libchamplain" ,libchamplain)
 194        ("libgee" ,libgee)
 195        ("libsecret" ,libsecret)
 196        ("libsoup" ,libsoup)
 197        ("libgweather" ,libgweather)
 198        ("libxml2" ,libxml2)
 199        ("gdk-pixbuf" ,gdk-pixbuf+svg)
 200        ("glib-networking" ,glib-networking)
 201        ("geoclue" ,geoclue)
 202        ("geocode-glib" ,geocode-glib)
 203        ("gfbgraph" ,gfbgraph)
 204        ("gjs" ,gjs)
 205        ("glib" ,glib)
 206        ("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
 207        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
 208        ("rest" ,rest)
 209        ("webkitgtk" ,webkitgtk)))
 210     (propagated-inputs
 211      `(("gtk+3" ,gtk+)))
 212     (synopsis "Graphical map viewer and wayfinding program")
 213     (description "GNOME Maps is a graphical map viewer.  It uses map data from
 214 the OpenStreetMap project.  It can provide directions for walking, bicycling,
 215 and driving.")
 216     (home-page "https://wiki.gnome.org/Apps/Maps")
 217     (license license:gpl2+)))
 218
 219 (define-public libgaiagraphics
 220   (package
 221     (name "libgaiagraphics")
 222     (version "0.5")
 223     (source
 224      (origin
 225        (method url-fetch)
 226        (uri (string-append "https://www.gaia-gis.it/gaia-sins/libgaiagraphics-"
 227                            version ".tar.gz"))
 228        (sha256
 229         (base32
 230          "076afqv417ag3hfvnif0qc7qscmnq1dsf6y431yygwgf34rjkayc"))))
 231     (build-system gnu-build-system)
 232     (native-inputs
 233      `(("pkg-config" ,pkg-config)))
 234     (inputs
 235      `(("cairo" ,cairo)
 236        ("libpng" ,libpng)
 237        ("libjpeg-turbo" ,libjpeg-turbo)
 238        ("libtiff" ,libtiff)
 239        ("libgeotiff" ,libgeotiff)
 240        ("proj.4" ,proj.4)
 241        ("libxml2" ,libxml2)
 242        ("zlib" ,zlib)))
 243      (synopsis "Gaia common graphics support")
 244      (description "libgaiagraphics is a library supporting
 245  common-utility raster handling methods.")
 246     (home-page "https://www.gaia-gis.it/fossil/libgaiagraphics/index")
 247     (license license:lgpl3+)))
 248
 249 (define-public libgeotiff
 250   (package
 251     (name "libgeotiff")
 252     (version "1.5.1")
 253     (source
 254      (origin
 255        (method url-fetch)
 256        (uri (string-append "http://download.osgeo.org/geotiff/libgeotiff/libgeotiff-"
 257                            version ".tar.gz"))
 258        (patches (search-patches
 259                  ;; See libgeotiff 1.5.1 issue
 260                  ;; https://github.com/OSGeo/libgeotiff/issues/22
 261                  "libgeotiff-adapt-test-script-for-proj-6.2.patch"))
 262        (sha256
 263         (base32 "0b31mlzcv5b1y7jdvb7p0pa3xradrg3x5g32ym911lbhq4rrgsgr"))
 264        (modules '((guix build utils)))
 265        (snippet
 266         '(begin
 267            ;; Remove .csv files, distributed from EPSG under a restricted
 268            ;; license. See LICENSE for full license text.
 269            (for-each delete-file (find-files "." "\\.csv$"))
 270            #t))))
 271     (build-system gnu-build-system)
 272     (inputs
 273      `(("libjpeg-turbo" ,libjpeg-turbo)
 274        ("libtiff" ,libtiff)
 275        ("zlib" ,zlib)))
 276     (propagated-inputs
 277      `(;; libgeotiff headers include proj headers, so ensure those are available.
 278        ("proj" ,proj)))
 279     (arguments
 280      `(#:configure-flags
 281        (list "--disable-static"
 282              "--with-zlib" "--with-jpeg"
 283              (string-append "--with-libtiff=" (assoc-ref %build-inputs "libtiff")))))
 284     (synopsis "Library for handling GeoTIFF (geographic enabled TIFF)")
 285     (description "libgeotiff is a library on top of libtiff for reading and
 286 writing GeoTIFF information tags.")
 287     (home-page "https://trac.osgeo.org/geotiff/")
 288     ;; This is a mixture of various contributions under different licenses.
 289     ;; Note that the EPSG database is NOT "free to use" as the LICENSE file
 290     ;; states, as its commercial redistribution is restricted. Hence, we have
 291     ;; removed it from the package.
 292     (license (list license:public-domain
 293                    license:x11
 294                    license:bsd-3
 295                    (license:non-copyleft "file://LICENSE"
 296                                          "See LICENSE in the distribution.")))))
 297
 298 (define-public libspatialite
 299   (package
 300     (name "libspatialite")
 301     (version "4.3.0a")
 302     (source
 303      (origin
 304        (method url-fetch)
 305        (uri (string-append "https://www.gaia-gis.it/gaia-sins/libspatialite-"
 306                            version ".tar.gz"))
 307        (sha256
 308         (base32
 309          "16d4lpl7xrm9zy4gphy6nwanpjp8wn9g4wq2i2kh8abnlhq01448"))))
 310     (build-system gnu-build-system)
 311     (native-inputs
 312      `(("pkg-config" ,pkg-config)))
 313     (inputs
 314      `(("freexl" ,freexl)
 315        ("geos" ,geos)
 316        ("libxml2" ,libxml2)
 317        ("proj.4" ,proj.4)
 318        ("sqlite" ,sqlite)
 319        ("zlib" ,zlib)))
 320     (arguments
 321      `(#:phases
 322        (modify-phases %standard-phases
 323          ;; 3 tests are failing, ignore them:
 324          (add-after 'unpack 'ignore-broken-tests
 325            (lambda _
 326              (substitute* '("test/Makefile.in")
 327                (("\tcheck_sql_stm.*" all) "\tcheck_multithread$(EXEEXT) \\\n")
 328                (("(\tch.*) check_v.*ble2.*$" all vt1) (string-append vt1 " \\\n"))
 329                (("\tch.* (check_v.*ble4.*)$" all vt4) (string-append "\t" vt4)))
 330              #t)))))
 331     (synopsis "Extend SQLite to support Spatial SQL capabilities")
 332     (description
 333      "SpatiaLite is a library intended to extend the SQLite core to support
 334 fully fledged Spatial SQL capabilities.")
 335     (home-page "https://www.gaia-gis.it/fossil/libspatialite/index")
 336     ;; For the genuine libspatialite-sources holds:
 337     ;; Any of the licenses MPL1.1, GPL2+ or LGPL2.1+  may be picked.
 338     ;; Files under src/control_points are from GRASS
 339     ;; and are licensed under GPL2+ only.
 340     ;; src/md5.[ch]: Placed into the public domain by Alexander Peslyak.
 341     (license (list license:gpl2+
 342                    license:lgpl2.1+
 343                    license:mpl1.1
 344                    license:public-domain))))
 345
 346 (define-public proj
 347   (package
 348     (name "proj")
 349     (version "6.3.1")
 350     (source
 351      (origin
 352        (method url-fetch)
 353        (uri (string-append "http://download.osgeo.org/proj/proj-"
 354                            version ".tar.gz"))
 355        (sha256
 356         (base32
 357          "1y46ij32j9b4x1kjnnlykcwk3kkjwkg44sfc1ziwm3a3g0ki3q3d"))))
 358     (build-system gnu-build-system)
 359     (inputs
 360      `(("sqlite" ,sqlite)))
 361     (native-inputs
 362      `(("pkg-config" ,pkg-config)))
 363     (home-page "https://proj.org/")
 364     (synopsis "Coordinate transformation software")
 365     (description
 366      "Proj is a generic coordinate transformation software that transforms
 367 geospatial coordinates from one coordinate reference system (CRS) to another.
 368 This includes cartographic projections as well as geodetic transformations.
 369 PROJ includes command line applications for easy conversion of coordinates
 370 from text files or directly from user input.  In addition, proj also exposes
 371 an application programming interface that lets developers use the
 372 functionality of proj in their own software.")
 373     (license (list license:expat
 374                    ;; src/projections/patterson.cpp
 375                    license:asl2.0
 376                    ;; src/geodesic.*, src/tests/geodtest.cpp
 377                    license:x11))))
 378
 379 (define-public proj.4
 380   (package
 381     (name "proj.4")
 382     (version "4.9.3")
 383     (source (origin
 384               (method url-fetch)
 385               (uri (string-append "http://download.osgeo.org/proj/proj-"
 386                                   version ".tar.gz"))
 387               (sha256
 388                (base32
 389                 "1xw5f427xk9p2nbsj04j6m5zyjlyd66sbvl2bkg8hd1kx8pm9139"))))
 390     (build-system gnu-build-system)
 391     (arguments
 392      `(#:phases
 393        (modify-phases %standard-phases
 394          (add-after 'unpack 'patch-test-paths
 395            (lambda _
 396              (substitute* '("nad/test27"
 397                             "nad/test83"
 398                             "nad/testvarious"
 399                             "nad/testdatumfile"
 400                             "nad/testflaky"
 401                             "nad/testIGNF")
 402                (("/bin/rm") (which "rm")))
 403              #t))
 404          ;; Precision problems on i686 and other platforms. See:
 405          ;; https://web.archive.org/web/20151006134301/http://trac.osgeo.org/proj/ticket/255
 406          ;; Disable failing test.
 407          (add-after 'patch-test-paths 'ignore-failing-tests
 408            (lambda _
 409              (substitute* '("nad/Makefile.in")
 410                (("\tPROJ_LIB.*" all) (string-append  "#" all)))
 411              #t)))))
 412     (inputs
 413      `(("glib" ,glib)))
 414     (home-page "https://proj.org/")
 415     (synopsis "Cartographic Projections Library")
 416     (description
 417      "Proj.4 is a library for converting coordinates between cartographic
 418 projections.")
 419     (license (list license:expat
 420                    ;; src/PJ_patterson.c
 421                    license:asl2.0
 422                    ;; src/geodesic.c/h
 423                    license:x11
 424                    ;; Embedded EPSG database.
 425                    (license:non-copyleft "http://www.epsg.org/TermsOfUse")
 426                    ;; cmake/*
 427                    license:boost1.0))))
 428
 429 (define-public mapnik
 430   (package
 431     (name "mapnik")
 432     (version "3.0.18")
 433     (source
 434      (origin
 435        (method url-fetch)
 436        (uri (string-append "https://github.com/mapnik/mapnik/releases/download/v"
 437                            version "/mapnik-v" version ".tar.bz2"))
 438        (sha256
 439         (base32
 440          "06frcikaj2mgz3abfk5h0z4j3hbksi0zikwjngbjv4p5f3pwxf8q"))))
 441     (build-system scons-build-system)
 442     (inputs
 443      `(("boost" ,boost)
 444        ("cairo" ,cairo)
 445        ("freetype" ,freetype)
 446        ("harfbuzz" ,harfbuzz)
 447        ("icu4c" ,icu4c)
 448        ("libjpeg-turbo" ,libjpeg-turbo)
 449        ("libpng" ,libpng)
 450        ("libtiff" ,libtiff)
 451        ("libwebp" ,libwebp)
 452        ("libxml2" ,libxml2)
 453        ("proj.4" ,proj.4)
 454        ("sqlite" ,sqlite)
 455        ("zlib" ,zlib)))
 456     (native-inputs
 457      `(("pkg-config" ,pkg-config)))
 458     (arguments
 459      `(#:scons ,scons-python2
 460        #:scons-flags
 461        (list "CC=gcc"
 462              (string-append "PREFIX=" %output)
 463              (string-append "CUSTOM_LDFLAGS=-Wl,-rpath=" %output "/lib"))))
 464     (home-page "https://mapnik.org/")
 465     (synopsis "Toolkit for developing mapping applications")
 466     (description "Mapnik is a toolkit for developing mapping applications.  It
 467 is basically a collection of geographic objects like maps, layers,
 468 datasources, features, and geometries.  At its core is a C++ shared library
 469 providing algorithms and patterns for spatial data access and visualization.
 470 The library does not rely on any specific windowing system and can be deployed
 471 to any server environment.  It is intended to play fair in a multi-threaded
 472 environment and is aimed primarily, but not exclusively, at web-based
 473 development.")
 474     (license (list license:lgpl2.1+
 475                    ;; demo/viewer, demo/python/rundemo.py
 476                    license:gpl2+
 477                    ;; deps/boost, deps/mapbox, deps/agg/include/agg_conv_offset.h
 478                    license:boost1.0
 479                    ;; deps/mapnik/sparsehash
 480                    license:bsd-3
 481                    ;; deps/agg
 482                    (license:non-copyleft "file://deps/agg/copying")))))
 483
 484 (define-public python2-mapnik
 485   (package
 486     (name "python2-mapnik")
 487     (version "3.0.16")
 488     (source
 489      (origin
 490        (method url-fetch)
 491        (uri (string-append "https://github.com/mapnik/python-mapnik/archive/v"
 492                            version ".tar.gz"))
 493        (file-name (string-append name "-" version ".tar.gz"))
 494        (sha256
 495         (base32
 496          "0w7wg72gnwmbjani9sqk42p2jwqkrl9hsdkawahni5m05xsifcb4"))))
 497     (build-system python-build-system)
 498     (inputs
 499      `(("boost" ,boost)
 500        ("harfbuzz" ,harfbuzz)
 501        ("icu4c" ,icu4c)
 502        ("libjpeg-turbo" ,libjpeg-turbo)
 503        ("libpng" ,libpng)
 504        ("libtiff" ,libtiff)
 505        ("libwebp" ,libwebp)
 506        ("mapnik" ,mapnik)
 507        ("proj.4" ,proj.4)
 508        ("python2-pycairo" ,python2-pycairo)))
 509     (native-inputs
 510      (let ((test-data-input
 511             (lambda (repository version hash)
 512               (origin
 513                 (method url-fetch)
 514                 (uri (string-append "https://github.com/mapnik/" repository
 515                                     "/archive/v" version ".tar.gz"))
 516                 (file-name (string-append "python-mapnik-" repository
 517                                           "-" version ".tar.gz"))
 518                 (sha256 (base32 hash))))))
 519        `(("python2-nose" ,python2-nose)
 520          ;; Test data is released as separate tarballs
 521          ("test-data"
 522           ,(test-data-input "test-data" "3.0.18"
 523                             "10cvgn5gxn8ldrszj24zr1vzm5w76kqk4s7bl2zzp5yvkhh8lj1n"))
 524          ("test-data-visual"
 525           ,(test-data-input "test-data-visual" "3.0.18"
 526                             "1cb9ghy8sis0w5fkp0dvwxdqqx44rhs9a9w8g9r9i7md1c40r80i")))))
 527     (arguments
 528      `(#:python ,python-2 ; Python 3 support is incomplete, and the build fails
 529        #:phases
 530        (modify-phases %standard-phases
 531          ;; Unpack test data into the source tree
 532          (add-after 'unpack 'unpack-submodules
 533            (lambda* (#:key inputs #:allow-other-keys)
 534              (let ((unpack (lambda (source target)
 535                              (with-directory-excursion target
 536                                (invoke "tar" "xvf" (assoc-ref inputs source)
 537                                        "--strip-components=1")))))
 538                (unpack "test-data" "test/data")
 539                (unpack "test-data-visual" "test/data-visual"))))
 540          ;; Skip failing tests
 541          (add-after 'unpack 'skip-tests
 542            (lambda _
 543              (let ((skipped-tests (list "test_vrt_referring_to_missing_files"
 544                                         "test_unicode_regex_replace"
 545                                         "test_proj_antimeridian_bbox"
 546                                         "test_render_with_scale_factor")))
 547                (substitute* "setup.cfg"
 548                  (("\\[nosetests\\]" all)
 549                   (string-append all "\nexclude=^("
 550                                  (string-join skipped-tests "|") ")$")))))))))
 551     (home-page "https://github.com/mapnik/python-mapnik")
 552     (synopsis "Python bindings for Mapnik")
 553     (description "This package provides Python bindings for Mapnik.")
 554     (license license:lgpl2.1+)))
 555
 556 (define-public spatialite-gui
 557   (package
 558     (name "spatialite-gui")
 559     (version "1.7.1")
 560     (source
 561      (origin
 562        (method url-fetch)
 563        (uri (string-append "https://www.gaia-gis.it/gaia-sins/spatialite_gui-"
 564                            version ".tar.gz"))
 565        (sha256
 566         (base32
 567          "1r05dz9pyc8vsd2wbqxcsracpfbaamz470rcyp2myfpqwznv376b"))))
 568     (build-system gnu-build-system)
 569     (native-inputs
 570      `(("pkg-config" ,pkg-config)))
 571     (inputs
 572      `(("freexl" ,freexl)
 573        ("geos" ,geos)
 574        ("libgaiagraphics" ,libgaiagraphics)
 575        ("libjpeg-turbo" ,libjpeg-turbo)
 576        ("libspatialite" ,libspatialite)
 577        ("libxml2" ,libxml2)
 578        ("proj.4" ,proj.4)
 579        ("sqlite" ,sqlite)
 580        ("wxwidgets" ,wxwidgets-2)
 581        ("zlib" ,zlib)))
 582     (arguments
 583      `(#:phases (modify-phases %standard-phases
 584                   (add-after 'unpack 'fix-gui
 585                     (lambda _
 586                       ;; Fix for the GUI not showing up.
 587                       (substitute* "Main.cpp"
 588                         (("Hide\\(\\);") ""))
 589                       #t)))))
 590     (synopsis "Graphical user interface for SpatiaLite")
 591     (description "Spatialite-gui provides a visual interface for viewing and
 592  maintaining a spatialite database.  You can easily see the structure of the
 593  tables and data contents using point and click functions, many of which
 594  construct common SQL queries, or craft your own SQL queries.")
 595     (home-page "https://www.gaia-gis.it/fossil/spatialite_gui/index")
 596     (license license:gpl3+)))
 597
 598 (define-public gdal
 599   (package
 600     (name "gdal")
 601     (version "3.0.4")
 602     (source (origin
 603               (method url-fetch)
 604               (uri (string-append
 605                      "http://download.osgeo.org/gdal/" version "/gdal-"
 606                      version ".tar.gz"))
 607               (sha256
 608                (base32
 609                 "10symyajj1b7j98f889lqxxbmhcyvlhq9gg0l42h69bv22wx45gw"))
 610               (modules '((guix build utils)))
 611               (snippet
 612                 `(begin
 613                    ;; TODO: frmts contains a lot more bundled code.
 614                    (for-each delete-file-recursively
 615                      ;; bundled code
 616                      '("frmts/png/libpng"
 617                        "frmts/gif/giflib"
 618                        "frmts/jpeg/libjpeg"
 619                        "frmts/jpeg/libjpeg12"
 620                        "frmts/gtiff/libtiff"
 621                        "frmts/gtiff/libgeotiff"
 622                        "frmts/zlib"
 623                        "ogr/ogrsf_frmts/geojson/libjson"))))))
 624     (build-system gnu-build-system)
 625     (arguments
 626      `(#:tests? #f
 627        #:configure-flags
 628        (let-syntax ((with (syntax-rules ()
 629                             ((_ option input)
 630                              (string-append option "="
 631                                             (assoc-ref %build-inputs input))))))
 632          (list
 633            ;; TODO: --with-pcidsk, --with-pcraster
 634            (with "--with-freexl" "freexl")
 635            (with "--with-libjson-c" "json-c")
 636            (with "--with-png" "libpng")
 637            (with "--with-webp" "libwebp")
 638            (with "--with-gif" "giflib")
 639            (with "--with-jpeg" "libjpeg-turbo")
 640            (with "--with-libtiff" "libtiff")
 641            (with "--with-geotiff" "libgeotiff")
 642            (with "--with-libz" "zlib")
 643            (with "--with-expat" "expat")
 644            (with "--with-sqlite3" "sqlite")
 645            "--with-pcre"))
 646        #:phases
 647        (modify-phases %standard-phases
 648          (add-before 'build 'fix-path
 649            (lambda _
 650              (substitute* "frmts/mrf/mrf_band.cpp"
 651                (("\"../zlib/zlib.h\"") "<zlib.h>")))))))
 652     (inputs
 653      `(("expat" ,expat)
 654        ("freexl" ,freexl)
 655        ("geos" ,geos)
 656        ("giflib" ,giflib)
 657        ("json-c" ,json-c)
 658        ("libgeotiff" ,libgeotiff)
 659        ("libjpeg-turbo" ,libjpeg-turbo)
 660        ("libpng" ,libpng)
 661        ("libtiff" ,libtiff)
 662        ("libwebp" ,libwebp)
 663        ("netcdf" ,netcdf)
 664        ("pcre" ,pcre)
 665        ("proj" ,proj)
 666        ("sqlite" ,sqlite)
 667        ("zlib" ,zlib)))
 668     (home-page "https://gdal.org/")
 669     (synopsis "Raster and vector geospatial data format library")
 670     (description "GDAL is a translator library for raster and vector geospatial
 671 data formats.  As a library, it presents a single raster abstract data model
 672 and single vector abstract data model to the calling application for all
 673 supported formats.  It also comes with a variety of useful command line
 674 utilities for data translation and processing.")
 675     (license (list
 676                ;; general license
 677                license:expat
 678                ;; frmts/gtiff/tif_float.c, frmts/pcraster/libcsf,
 679                ;; ogr/ogrsf_frmts/dxf/intronurbs.cpp, frmts/pdf/pdfdataset.cpp
 680                ;; frmts/mrf/
 681                license:bsd-3
 682                ;; frmts/hdf4/hdf-eos/*
 683                ;; similar to the expat license, but without guarantee exclusion
 684                (license:non-copyleft "file://frmts/hdf4/hdf-eos/README")
 685                ;; frmts/grib/degrib/
 686                license:public-domain ; with guarantee exclusion
 687                ;; port/cpl_minizip*
 688                ;; Some bsd-inspired license
 689                (license:non-copyleft "file://port/LICENCE_minizip")
 690                ;; alg/internal_libqhull
 691                ;; Some 5-clause license
 692                (license:non-copyleft "file://alg/internal_libqhull/COPYING.txt")
 693                ;; frmts/mrf/libLERC
 694                license:asl2.0))))
 695
 696 (define-public python-gdal
 697   (package (inherit gdal)
 698     (name "python-gdal")
 699     (build-system python-build-system)
 700     (arguments
 701      '(#:tests? #f                      ; no tests
 702        #:phases
 703        (modify-phases %standard-phases
 704          (add-before 'build 'chdir
 705            (lambda _
 706              (chdir "swig/python")
 707              #t)))))
 708     (native-inputs '())
 709     (propagated-inputs
 710      `(("python-numpy" ,python-numpy)))
 711     (inputs
 712      `(("gdal" ,gdal)))
 713     (synopsis "GDAL (Geospatial Data Abstraction Library) python bindings")))
 714
 715 (define-public postgis
 716   (package
 717     (name "postgis")
 718     (version "3.0.0")
 719     (source (origin
 720               (method url-fetch)
 721               (uri (string-append "https://download.osgeo.org/postgis/source/postgis-"
 722                                   version ".tar.gz"))
 723               (sha256
 724                (base32
 725                 "15557fbk0xkngihwhqsbdyz2ng49blisf5zydw81j0gabk6x4vy0"))))
 726     (build-system gnu-build-system)
 727     (arguments
 728      `(#:tests? #f
 729        #:make-flags
 730        (list (string-append "datadir=" (assoc-ref %outputs "out") "/share")
 731              (string-append "docdir="(assoc-ref %outputs "out") "/share/doc")
 732              (string-append "pkglibdir="(assoc-ref %outputs "out") "/lib")
 733              (string-append "bindir=" (assoc-ref %outputs "out") "/bin"))
 734        #:phases
 735        (modify-phases %standard-phases
 736          (add-before 'build 'fix-install-path
 737            (lambda* (#:key outputs #:allow-other-keys)
 738              (substitute* '("raster/loader/Makefile" "raster/scripts/python/Makefile")
 739                (("\\$\\(DESTDIR\\)\\$\\(PGSQL_BINDIR\\)")
 740                 (string-append (assoc-ref outputs "out") "/bin"))))))))
 741     (inputs
 742      `(("gdal" ,gdal)
 743        ("geos" ,geos)
 744        ("json-c" ,json-c)
 745        ("libjpeg" ,libjpeg-turbo)
 746        ("libxml2" ,libxml2)
 747        ("pcre" ,pcre)
 748        ("postgresql" ,postgresql)
 749        ("proj" ,proj)))
 750     (native-inputs
 751      `(("perl" ,perl)
 752        ("pkg-config" ,pkg-config)))
 753     (home-page "https://postgis.net")
 754     (synopsis "Spatial database extender for PostgreSQL")
 755     (description "PostGIS is a spatial database extender for PostgreSQL
 756 object-relational database.  It adds support for geographic objects allowing
 757 location queries to be run in SQL.  This package provides a PostgreSQL
 758 extension.")
 759     (license (list
 760                ;; General license
 761                license:gpl2+
 762                ;; loader/dbfopen, safileio.*, shapefil.h, shpopen.c
 763                license:expat
 764                ;; loader/getopt.*
 765                license:public-domain
 766                ;; doc/xsl
 767                license:bsd-3 ; files only say "BSD"
 768                ;; doc
 769                license:cc-by-sa3.0))))
 770
 771 (define-public tegola
 772   (package
 773     (name "tegola")
 774     (version "0.7.0")
 775     (source (origin
 776               (method url-fetch)
 777               (uri (string-append
 778                      "https://github.com/go-spatial/tegola/archive/v"
 779                      version ".tar.gz"))
 780               (file-name (string-append name "-" version ".tar.gz"))
 781               (sha256
 782                (base32
 783                 "09vnzxfn0r70kmd776kcdfqxhzdj11syxa0b27z4ci1k367v7viw"))))
 784     (build-system go-build-system)
 785     (arguments
 786      `(#:import-path "github.com/go-spatial/tegola/cmd/tegola"
 787        #:unpack-path "github.com/go-spatial/tegola"
 788        #:phases
 789        (modify-phases %standard-phases
 790          (add-before 'build 'set-version
 791            (lambda _
 792              (with-directory-excursion "src/github.com/go-spatial/tegola"
 793                (substitute* '("cmd/tegola/cmd/root.go"
 794                               "cmd/tegola_lambda/main.go")
 795                  (("version not set") ,version)))
 796              #t)))))
 797     (home-page "https://tegola.io")
 798     (synopsis "Vector tile server for maps")
 799     (description "Tegola is a free vector tile server written in Go.  Tegola
 800 takes geospatial data and slices it into vector tiles that can be efficiently
 801 delivered to any client.")
 802     (license (list
 803                license:expat
 804                ;; Some packages in vendor have other licenses
 805                license:asl2.0
 806                license:bsd-2
 807                license:bsd-3
 808                license:wtfpl2))))
 809
 810 (define-public imposm3
 811   (package
 812     (name "imposm3")
 813     (version "0.6.0-alpha.4")
 814     (source
 815       (origin
 816         (method url-fetch)
 817         (uri (string-append "https://github.com/omniscale/imposm3/archive/v"
 818                             version ".tar.gz"))
 819     (file-name (string-append name "-" version ".tar.gz"))
 820         (sha256
 821          (base32
 822           "06f0kwmv52yd5m9jlckqxqmkf0cnqy3hamakrvg9lspplyqrds80"))))
 823     (build-system go-build-system)
 824     (arguments
 825      `(#:import-path "github.com/omniscale/imposm3/cmd/imposm"
 826        #:unpack-path "github.com/omniscale/imposm3"
 827        #:phases
 828        (modify-phases %standard-phases
 829          (add-before 'build 'set-version
 830            (lambda _
 831              (substitute* "src/github.com/omniscale/imposm3/version.go"
 832                (("0.0.0-dev") ,version))
 833              #t)))))
 834     (inputs
 835      `(("geos" ,geos)
 836        ("leveldb" ,leveldb)))
 837     (home-page "https://imposm.org/")
 838     (synopsis "OpenStreetMap importer for PostGIS")
 839     (description "Imposm is an importer for OpenStreetMap data.  It reads PBF
 840 files and imports the data into PostgreSQL/PostGIS databases.  It is designed
 841 to create databases that are optimized for rendering/tile/map-services.")
 842     (license (list
 843                license:asl2.0
 844                ;; Some dependencies in vendor have different licenses
 845                license:expat
 846                license:bsd-2
 847                license:bsd-3))))
 848
 849 (define-public libosmium
 850   (package
 851     (name "libosmium")
 852     (version "2.15.4")
 853     (source
 854      (origin
 855        (method git-fetch)
 856        (uri (git-reference
 857              (url "https://github.com/osmcode/libosmium.git")
 858              (commit (string-append "v" version))))
 859        (file-name (git-file-name name version))
 860        (sha256
 861         (base32 "0mlcvqrhp40bzj5r5j9nfc5vbis8hmzcq9xi8jylkciyydaynhz4"))))
 862     (build-system cmake-build-system)
 863     (propagated-inputs
 864      `(("boost" ,boost)
 865        ("bzip2" ,bzip2)
 866        ("expat" ,expat)
 867        ("gdal" ,gdal)
 868        ("geos" ,geos)
 869        ("proj" ,proj)
 870        ("protozero" ,protozero)
 871        ("sparsehash" ,sparsehash)
 872        ("utfcpp" ,utfcpp)
 873        ("zlib" ,zlib)))
 874     (native-inputs
 875      `(("doxygen" ,doxygen)))
 876     (home-page "https://osmcode.org/libosmium/")
 877     (synopsis "C++ library for working with OpenStreetMap data")
 878     (description "Libosmium is a fast and flexible C++ library for working with
 879 OpenStreetMap data.")
 880     (license license:boost1.0)))
 881
 882 (define-public osm2pgsql
 883   (package
 884     (name "osm2pgsql")
 885     (version "1.2.1")
 886     (source
 887      (origin
 888        (method git-fetch)
 889        (uri (git-reference
 890              (url "https://github.com/openstreetmap/osm2pgsql.git")
 891              (commit version)))
 892        (file-name (git-file-name name version))
 893        (sha256
 894         (base32 "1ysan01lpqzjxlq3y2kdminfjs5d9zksicpf9vvzpdk3fzq51fc9"))
 895        (modules '((guix build utils)))
 896        (snippet
 897         '(begin
 898            (delete-file-recursively "contrib/protozero")
 899            (delete-file-recursively "contrib/libosmium")
 900            #t))))
 901     (build-system cmake-build-system)
 902     (arguments
 903      `(#:tests? #f; tests fail because we need to setup a database
 904        #:configure-flags
 905        (list (string-append "-DOSMIUM_INCLUDE_DIR="
 906                             (assoc-ref %build-inputs "libosmium")
 907                             "/include")
 908              (string-append "-DPROTOZERO_INCLUDE_DIR="
 909                             (assoc-ref %build-inputs "protozero")
 910                             "/include"))))
 911     (inputs
 912      `(("boost" ,boost)
 913        ("bzip2" ,bzip2)
 914        ("expat" ,expat)
 915        ("libosmium" ,libosmium)
 916        ("lua" ,lua)
 917        ("postgresql" ,postgresql)
 918        ("proj" ,proj)
 919        ("protozero" ,protozero)
 920        ("zlib" ,zlib)))
 921     (native-inputs
 922      `(("python" ,python)
 923        ("python-psycopg2" ,python-psycopg2)))
 924     (home-page "https://github.com/openstreetmap/osm2pgsql")
 925     (synopsis "OSM data importer to postgresql")
 926     (description "Osm2pgsql is a tool for loading OpenStreetMap data into a
 927 PostgreSQL / PostGIS database suitable for applications like rendering into a
 928 map, geocoding with Nominatim, or general analysis.")
 929     (license license:gpl2+)))
 930
 931 (define-public tippecanoe
 932   (package
 933     (name "tippecanoe")
 934     (version "1.31.5")
 935     (source
 936      (origin
 937        (method git-fetch)
 938        (uri (git-reference
 939              (url "https://github.com/mapbox/tippecanoe.git")
 940              (commit version)))
 941        (file-name (git-file-name name version))
 942        (sha256
 943         (base32 "1m0x931a945sr7axyhcvpwh798m58hx1zxh6ikgf9gsgqhdhmszz"))))
 944     (build-system gnu-build-system)
 945     (arguments
 946      `(#:phases
 947        (modify-phases %standard-phases (delete 'configure))
 948        #:test-target "test"
 949        #:make-flags
 950        (list "CC=gcc"
 951              (string-append "PREFIX=" (assoc-ref %outputs "out")))))
 952     (inputs
 953      `(("perl" ,perl)
 954        ("sqlite" ,sqlite)
 955        ("zlib" ,zlib)))
 956     (home-page "https://github.com/mapbox/tippecanoe")
 957     (synopsis "Vector tile server for maps")
 958     (description "Tippecanoe creates scale-independent view of data, so that
 959 the texture and density of features is visible at every zoom level, instead of
 960 dropping features at lower levels.")
 961     (license license:bsd-2)))
 962
 963 (define-public osmctools
 964   (package
 965     (name "osmctools")
 966     (version "0.9")
 967     (source
 968      (origin
 969        (method git-fetch)
 970        (uri (git-reference
 971              (url "https://gitlab.com/osm-c-tools/osmctools")
 972              (commit version)))
 973        (file-name (git-file-name name version))
 974        (sha256
 975         (base32
 976          "1m8d3r1q1v05pkr8k9czrmb4xjszw6hvgsf3kn9pf0v14gpn4r8f"))))
 977     (build-system gnu-build-system)
 978     (native-inputs
 979      `(("autoconf" ,autoconf)
 980        ("automake" ,automake)))
 981     (inputs
 982      `(("zlib" ,zlib)))
 983     (home-page "https://gitlab.com/osm-c-tools/osmctools")
 984     (synopsis "Tools to convert, filter and update OpenStreetMap data files")
 985     (description "This project contains a few tools which are used in the
 986 OpenStreetMap project.  They can be used to convert, filter and update
 987 OpenStreetMap data files.")
 988     (license license:agpl3)))
 989
 990 (define-public osm-gps-map
 991   (package
 992     (name "osm-gps-map")
 993     (version "1.1.0")
 994     (source
 995      (origin
 996        (method url-fetch)
 997        (uri (string-append
 998              "https://github.com/nzjrs/osm-gps-map/releases/download/"
 999              version "/osm-gps-map-" version ".tar.gz"))
1000        (sha256
1001         (base32
1002          "11imsf4cz1dpxdjh178k2s29axmq86rkfg1pqmn7incyxmjzhbwg"))))
1003     (build-system gnu-build-system)
1004     (native-inputs
1005      `(("gnome-common" ,gnome-common)
1006        ("gtk-doc" ,gtk-doc)
1007        ("pkg-config" ,pkg-config)))
1008     (inputs
1009      `(("cairo" ,cairo)
1010        ("glib" ,glib)
1011        ("gobject-introspection" ,gobject-introspection)
1012        ("gtk+" ,gtk+)
1013        ("libsoup" ,libsoup)))
1014     (home-page "https://nzjrs.github.io/osm-gps-map/")
1015     (synopsis "GTK+ widget for displaying OpenStreetMap tiles")
1016     (description
1017      "This package provides a GTK+ widget (and Python bindings) that when
1018 given GPS coordinates,draws a GPS track, and points of interest on a moving
1019 map display.  Downloads map data from a number of websites, including
1020 @url{https://www.openstreetmap.org}.")
1021     (license license:gpl2+)))
1022
1023 (define-public xygrib
1024   (package
1025     (name "xygrib")
1026     (version "1.2.6.1")
1027     (source (origin
1028               (method git-fetch)
1029               (uri (git-reference
1030                      (url "https://github.com/opengribs/XyGrib.git")
1031                      (commit (string-append "v" version))))
1032               (file-name (git-file-name name version))
1033               (sha256
1034                (base32
1035                 "0xzsm8pr0zjk3f8j880fg5n82jyxn8xf1330qmmq1fqv7rsrg9ia"))
1036               (modules '((guix build utils)))
1037               (snippet
1038                '(begin (delete-file-recursively "data/fonts") #t))))
1039     (build-system cmake-build-system)
1040     (arguments
1041      `(#:phases
1042        (modify-phases %standard-phases
1043          (add-after 'unpack 'patch-directories
1044            (lambda* (#:key inputs #:allow-other-keys)
1045              (let ((jpeg (assoc-ref inputs "openjpeg"))
1046                    (font (assoc-ref inputs "font-liberation")))
1047                (substitute* "CMakeLists.txt"
1048                  ;; Find libjpeg.
1049                  (("/usr") jpeg)
1050                  ;; Fix install locations.
1051                  (("set\\(PREFIX_BIN.*") "set(PREFIX_BIN \"bin\")\n")
1052                  (("set\\(PREFIX_PKGDATA.*") "set(PREFIX_PKGDATA \"share/${PROJECT_NAME}\")\n")
1053                  ;; Skip looking for the static library.
1054                  (("\"libnova.a\"") ""))
1055                ;; Don't use the bundled font-liberation.
1056                (substitute* "src/util/Font.cpp"
1057                  (("Util::pathFonts\\(\\)\\+\"liberation-fonts/\"")
1058                   (string-append "\"" font "/share/fonts/truetype/\"")))
1059                (substitute* "src/util/Util.h"
1060                  (("pathData\\(\\)\\+\"data/fonts/\"")
1061                   (string-append "\"" font "/share/fonts/\""))))
1062              #t)))
1063        #:tests? #f)) ; no tests
1064     (native-inputs
1065      `(("qttools" ,qttools)))
1066     (inputs
1067      `(("bzip2" ,bzip2)
1068        ("font-liberation" ,font-liberation)
1069        ("libnova" ,libnova)
1070        ("libpng" ,libpng)
1071        ("openjpeg" ,openjpeg)
1072        ("proj.4" ,proj.4)
1073        ("qtbase" ,qtbase)
1074        ("zlib" ,zlib)))
1075     (synopsis "Weather Forecast Visualization")
1076     (description
1077      "XyGrib is a Grib file reader and visualizes meteorological data providing
1078 an off-line capability to analyse weather forecasts or hindcasts.  It is
1079 intended to be used as a capable weather work station for anyone with a serious
1080 interest in examining weather. This would include members of the sailing
1081 community, private and sport aviators, farmers, weather buffs and many more.
1082 XyGrib is the continuation of the zyGrib software package with a new team of
1083 volunteers.")
1084     (home-page "https://opengribs.org")
1085     (license license:gpl3+)))
1086
1087 (define-public libspatialindex
1088   (package
1089     (name "libspatialindex")
1090     (version "1.9.3")
1091     (source
1092      (origin
1093        (method url-fetch)
1094        (uri (string-append "https://github.com/libspatialindex/libspatialindex/"
1095                            "releases/download/" version "/spatialindex-src-"
1096                            version ".tar.bz2"))
1097        (sha256
1098         (base32
1099          "02n5vjcyk04w0djidyp21hfbxfpbbara8ifd9nml6158rwqr8lja"))))
1100     (build-system cmake-build-system)
1101     (home-page "https://libspatialindex.org")
1102     (synopsis "Spatial indexing library")
1103     (description "The purpose of this library is to provide:
1104
1105 @itemize
1106  @item An extensible framework that will support robust spatial indexing
1107 methods.
1108  @item Support for sophisticated spatial queries.  Range, point location,
1109  nearest neighbor and k-nearest neighbor as well as parametric queries (defined
1110 by spatial constraints) should be easy to deploy and run.
1111  @item Easy to use interfaces for inserting, deleting and updating information.
1112  @item Wide variety of customization capabilities.  Basic index and storage
1113 characteristics like the page size, node capacity, minimum fan-out, splitting
1114 algorithm, etc. should be easy to customize.
1115  @item Index persistence.  Internal memory and external memory structures
1116 should be supported.  Clustered and non-clustered indices should be easy to be
1117 persisted.
1118 @end itemize
1119 ")
1120     (license license:expat)))
1121
1122 (define-public java-jmapviewer
1123   (package
1124     (name "java-jmapviewer")
1125     (version "2.13")
1126     (source (origin
1127               (method url-fetch)
1128               (uri (string-append "https://svn.openstreetmap.org/applications/"
1129                                   "viewer/jmapviewer/releases/" version
1130                                   "/JMapViewer-" version "-Source.zip"))
1131               (sha256
1132                (base32
1133                 "0sy6r5fkbb9bclw0is6gwnbzz627m7pjfnsqydxz58pbndakkhrv"))))
1134     (build-system ant-build-system)
1135     (native-inputs
1136      `(("unzip" ,unzip)))
1137     (arguments
1138      `(#:build-target "pack"
1139        #:tests? #f; No tests
1140        #:phases
1141        (modify-phases %standard-phases
1142          (add-before 'build 'clean
1143            (lambda* _
1144              (invoke "ant" "clean")))
1145          (replace 'install
1146            (lambda* (#:key outputs #:allow-other-keys)
1147              (let ((dir (string-append (assoc-ref outputs "out") "/share/java/")))
1148                (mkdir-p dir)
1149                (copy-file "JMapViewer.jar" (string-append dir "JMapViewer.jar"))))))))
1150     (home-page "https://wiki.openstreetmap.org/wiki/JMapViewer")
1151     (synopsis "OSM map integration in Java")
1152     (description "JMapViewer is a Java component which allows to easily
1153 integrate an OSM map view into your Java application.  It is maintained as
1154 an independent project by the JOSM team.")
1155     (license license:gpl2)))
1156
1157 (define-public josm
1158   (package
1159     (name "josm")
1160     (version "15937")
1161     (source (origin
1162               (method svn-fetch)
1163               (uri (svn-reference
1164                      (url "https://josm.openstreetmap.de/svn/trunk")
1165                      (revision (string->number version))
1166                      (recursive? #f)))
1167               (sha256
1168                (base32
1169                 "00b8sw0wgkcf7xknmdpn5s521ax8x2660figidcrry37sgq3x946"))
1170               (file-name (string-append name "-" version "-checkout"))
1171               (modules '((guix build utils)))
1172             (snippet
1173              '(begin
1174                 (for-each delete-file (find-files "." ".*.jar$"))
1175                 #t))))
1176     (build-system ant-build-system)
1177     (native-inputs
1178      `(("javacc" ,javacc)))
1179     (inputs
1180      `(("java-commons-jcs" ,java-commons-jcs)
1181        ("java-commons-compress" ,java-commons-compress)
1182        ("java-jmapviewer" ,java-jmapviewer)
1183        ("java-jsonp-api" ,java-jsonp-api)
1184        ("java-jsonp-impl" ,java-jsonp-impl); runtime dependency
1185        ("java-metadata-extractor" ,java-metadata-extractor)
1186        ("java-openjfx-media" ,java-openjfx-media)
1187        ("java-signpost-core" ,java-signpost-core)
1188        ("java-svg-salamander" ,java-svg-salamander)))
1189     (arguments
1190      `(#:tests? #f
1191        #:jar-name "josm.jar"
1192        #:phases
1193        (modify-phases %standard-phases
1194          (add-after 'unpack 'rm-build.xml
1195            (lambda* _
1196              (delete-file "build.xml")
1197              #t))
1198          (add-before 'build 'fix-revision
1199            (lambda* _
1200              (with-output-to-file "REVISION.XML"
1201                (lambda _
1202                  (display
1203                    (string-append "<info><entry><commit revision=\"" ,version "\">"
1204                                   "<date>1970-01-01 00:00:00 +0000</date>"
1205                                   "</commit></entry></info>"))))
1206              #t))
1207          (add-before 'build 'fix-classpath
1208            (lambda* (#:key inputs #:allow-other-keys)
1209              (setenv "CLASSPATH"
1210                      (string-join
1211                        (filter
1212                          (lambda (s)
1213                            (let ((source (assoc-ref inputs "source")))
1214                              (not (equal? (substring s 0 (string-length source)) source))))
1215                          (string-split (getenv "CLASSPATH") #\:))
1216                        ":"))
1217              #t))
1218          (add-before 'build 'generate-parser
1219            (lambda* _
1220              (let* ((dir "src/org/openstreetmap/josm/gui/mappaint/mapcss")
1221                     (out (string-append dir "/parsergen"))
1222                     (file (string-append dir "/MapCSSParser.jj")))
1223                (mkdir-p "src/org/openstreetmap/josm/gui/mappaint/mapcss/parsergen")
1224                (invoke "javacc" "-DEBUG_PARSER=false"
1225                        "-DEBUG_TOKEN_MANAGER=false" "-JDK_VERSION=1.8"
1226                        "-GRAMMAR_ENCODING=UTF-8"
1227                        (string-append "-OUTPUT_DIRECTORY=" out)
1228                        file))
1229              #t))
1230          (add-after 'build 'generate-epsg
1231            (lambda _
1232              (system* "javac" "scripts/BuildProjectionDefinitions.java"
1233                       "-cp" "build/classes")
1234              (mkdir-p "data/projection")
1235              (with-output-to-file "data/projection/custom-epsg"
1236                (lambda _ (display "")))
1237              (invoke "java" "-cp" "build/classes:scripts:."
1238                      "BuildProjectionDefinitions" ".")
1239              #t))
1240          (add-after 'generate-epsg 'copy-data
1241            (lambda _
1242              (mkdir-p "build/classes")
1243              (rename-file "data" "build/classes/data")
1244              #t))
1245          (add-before 'install 'regenerate-jar
1246            (lambda _
1247              ;; We need to regenerate the jar file to add data.
1248              (delete-file "build/jar/josm.jar")
1249              (invoke "jar" "-cf" "build/jar/josm.jar" "-C"
1250                      "build/classes" ".")
1251              #t))
1252          (add-before 'build 'copy-styles
1253            (lambda _
1254              (mkdir-p "build/classes")
1255              (rename-file "styles" "build/classes/styles")
1256              #t))
1257          (add-before 'build 'copy-images
1258            (lambda _
1259              (mkdir-p "build/classes")
1260              (rename-file "images" "build/classes/images")
1261              #t))
1262          (add-before 'build 'copy-revision
1263            (lambda _
1264              (mkdir-p "build/classes")
1265              (with-output-to-file "build/classes/REVISION"
1266                (lambda _
1267                  (display
1268                    (string-append "Revision: " ,version "\n"
1269                                   "Is-Local-Build: true\n"
1270                                   "Build-Date: 1970-01-01 00:00:00 +0000\n"))))
1271              #t))
1272          (add-after 'install 'install-bin
1273            (lambda* (#:key outputs inputs #:allow-other-keys)
1274              (let* ((out (assoc-ref outputs "out"))
1275                     (bin (string-append out "/bin")))
1276                (mkdir-p bin)
1277                (with-output-to-file (string-append bin "/josm")
1278                  (lambda _
1279                    (display
1280                      (string-append "#!/bin/sh\n"
1281                                     (assoc-ref inputs "jdk") "/bin/java"
1282                                     " -cp " out "/share/java/josm.jar:"
1283                                     (getenv "CLASSPATH")
1284                                     " org.openstreetmap.josm.gui.MainApplication"))))
1285                (chmod (string-append bin "/josm") #o755))
1286              #t)))))
1287     (home-page "https://josm.openstreetmap.de")
1288     (synopsis "OSM editor")
1289     (description "JOSM is an extensible editor for OpenStreetMap (OSM).  It
1290 supports loading GPX tracks, background imagery and OSM data from local
1291 sources as well as from online sources and allows to edit the OSM data (nodes,
1292 ways, and relations) and their metadata tags.")
1293     (license license:gpl2+)))
1294
1295 (define-public libmaxminddb
1296   (package
1297     (name "libmaxminddb")
1298     (version "1.4.2")
1299     (source
1300      (origin
1301        (method url-fetch)
1302        (uri (string-append "https://github.com/maxmind/libmaxminddb"
1303                            "/releases/download/" version "/"
1304                            "/libmaxminddb-" version ".tar.gz"))
1305        (sha256
1306         (base32 "0mnimbaxnnarlw7g1rh8lpxsyf7xnmzwcczcc3lxw8xyf6ljln6x"))))
1307     (build-system gnu-build-system)
1308     (arguments
1309      `(#:phases
1310        (modify-phases %standard-phases
1311          (add-before 'configure 'set-cc-to-gcc
1312            (lambda _
1313              (setenv "CC" "gcc"))))))
1314     (native-inputs
1315      `(("perl" ,perl)))
1316     (home-page "https://maxmind.github.io/libmaxminddb/")
1317     (synopsis "C library for the MaxMind DB file format")
1318     (description "The libmaxminddb library provides a C library for reading
1319 MaxMind DB files, including the GeoIP2 databases from MaxMind.  The MaxMind DB
1320 format is a custom, but open, binary format designed to facilitate fast
1321 lookups of IP addresses while allowing flexibility in the type of data
1322 associated with an address.")
1323     (license license:asl2.0)))
1324
1325 (define-public python-maxminddb
1326   (package
1327     (name "python-maxminddb")
1328     (version "1.5.1")
1329     (source
1330      (origin
1331        (method url-fetch)
1332        (uri (pypi-uri "maxminddb" version))
1333        (sha256
1334         (base32
1335          "0y9giw81k4wdmpryr4k42w50z292mf364a6vs1vxf83ksc9ig6j4"))))
1336     (build-system python-build-system)
1337     (arguments
1338      `(#:tests? #f)) ;; Tests require a copy of the maxmind database
1339     (inputs
1340      `(("libmaxminddb" ,libmaxminddb)))
1341     (home-page "https://www.maxmind.com/")
1342     (synopsis "Reader for the MaxMind DB format")
1343     (description "MaxMind DB is a binary file format that stores data indexed
1344 by IP address subnets (IPv4 or IPv6).  This is a Python module for reading
1345 MaxMind DB files.")
1346     (license license:asl2.0)))
1347
1348 (define-public python-geoip2
1349   (package
1350     (name "python-geoip2")
1351     (version "2.9.0")
1352     (source
1353      (origin
1354        (method url-fetch)
1355        (uri (pypi-uri "geoip2" version))
1356        (sha256
1357         (base32
1358          "1w7cay5q6zawjzivqbwz5cqx1qbdjw6kbriccb7l46p7b39fkzzp"))))
1359     (build-system python-build-system)
1360     (arguments
1361      `(#:tests? #f)) ;; Tests require a copy of the maxmind database
1362     (inputs
1363      `(("python-maxminddb" ,python-maxminddb)
1364        ("python-requests" ,python-requests)))
1365     (home-page "https://www.maxmind.com/")
1366     (synopsis "MaxMind GeoIP2 API")
1367     (description "Provides an API for the GeoIP2 web services and databases.
1368 The API also works with MaxMind’s free GeoLite2 databases.")
1369     (license license:asl2.0)))
1370
1371 (define-public routino
1372   (package
1373    (name "routino")
1374    (version "3.3.2")
1375    (source
1376     (origin
1377      (method url-fetch)
1378      (uri (string-append "http://www.routino.org/download/routino-"
1379                          version ".tgz"))
1380      (sha256
1381       (base32
1382        "1ccx3s99j8syxc1gqkzsaqkmyf44l7h3adildnc5iq2md7bp8wab"))))
1383    (build-system gnu-build-system)
1384    (native-inputs
1385     `(("perl" ,perl)))
1386    (inputs
1387     `(("bzip2" ,bzip2)
1388       ("xz" ,xz)
1389       ("zlib" ,zlib)))
1390    (arguments
1391     `(#:test-target "test"
1392       #:phases
1393       (modify-phases %standard-phases
1394         (replace 'configure
1395           (lambda* (#:key outputs #:allow-other-keys)
1396             (substitute* "Makefile.conf"
1397               (("prefix=/usr/local")
1398                (string-append "prefix=" (assoc-ref outputs "out")))
1399               (("LDFLAGS_LDSO=-Wl,-R\\.")
1400                "LDFLAGS_LDSO=-Wl,-R$(libdir)")
1401               (("#CFLAGS\\+=-DUSE_XZ")
1402                "CFLAGS+=-DUSE_XZ")
1403               (("#LDFLAGS\\+=-llzma")
1404                "LDFLAGS+=-llzma"))
1405             #t)))))
1406    (synopsis "Routing application for OpenStreetMap data")
1407    (description
1408     "Routino is an application for finding a route between two points
1409 using the dataset of topographical information collected by
1410 @url{https://www.OpenStreetMap.org}.")
1411    (home-page "https://www.routino.org/")
1412    (license license:agpl3+)))
1413
1414 (define-public qmapshack
1415   (package
1416     (name "qmapshack")
1417     (version "1.14.0")
1418     (source
1419      (origin
1420        (method git-fetch)
1421        (uri (git-reference
1422              (url "https://github.com/Maproom/qmapshack.git")
1423              (commit (string-append "V_" version))))
1424        (file-name (git-file-name name version))
1425        (sha256
1426         (base32
1427          "07c2hrq9sn456w7l3gdr599rmjfv2k6mh159zza7p1py8r7ywksa"))))
1428     (build-system qt-build-system)
1429     (native-inputs
1430      `(("pkg-config" ,pkg-config)
1431        ("qttools" ,qttools)))
1432     (inputs
1433      `(("gdal" ,gdal)
1434        ("libjpeg-turbo" ,libjpeg-turbo)
1435        ("proj" ,proj)
1436        ("qtbase" ,qtbase)
1437        ("qtdeclarative" ,qtdeclarative)
1438        ("qtlocation" ,qtlocation)
1439        ("qtwebchannel" ,qtwebchannel)
1440        ("qtwebengine" ,qtwebengine)
1441        ("quazip" ,quazip)
1442        ("routino" ,routino)
1443        ("sqlite" ,sqlite-with-column-metadata) ; See wrap phase
1444        ("zlib" ,zlib)))
1445     (arguments
1446      `(#:tests? #f
1447        #:phases
1448        (modify-phases %standard-phases
1449          (add-after 'unpack 'fix-cmake-modules
1450            (lambda* (#:key inputs #:allow-other-keys)
1451              (substitute* "CMakeLists.txt"
1452                (("find_package\\(Qt5PrintSupport        REQUIRED\\)" all)
1453                 (string-append all "\nfind_package(Qt5Positioning REQUIRED)")))
1454              (substitute* "cmake/Modules/FindROUTINO.cmake"
1455                (("/usr/local")
1456                 (assoc-ref inputs "routino")))
1457              ;; The following fixes are included as patches in the sources
1458              ;; of QMapShack, but they are not applied by default, for
1459              ;; some reason...
1460              (invoke "patch" "-p1" "-i" "FindPROJ4.patch")
1461              (invoke "patch" "-p1" "-i" "FindQuaZip5.patch")
1462              #t))
1463          (add-after 'install 'wrap
1464            ;; The program fails to run with the error:
1465            ;;   undefined symbol: sqlite3_column_table_name16
1466            ;; Forcing the program to use sqlite-with-column-metadata instead
1467            ;; of sqlite using LD_LIBRARY_PATH solves the problem.
1468            ;;
1469            ;; The program also fails to find the QtWebEngineProcess program,
1470            ;; so we set QTWEBENGINEPROCESS_PATH to help it.
1471            (lambda* (#:key inputs outputs #:allow-other-keys)
1472              (let ((bin (string-append (assoc-ref outputs "out") "/bin"))
1473                    (qtwebengineprocess (string-append
1474                                         (assoc-ref inputs "qtwebengine")
1475                                         "/lib/qt5/libexec/QtWebEngineProcess"))
1476                    (sqlite-lib (string-append (assoc-ref inputs "sqlite")
1477                                               "/lib")))
1478                (for-each (lambda (program)
1479                            (wrap-program program
1480                              `("LD_LIBRARY_PATH" ":" prefix (,sqlite-lib))
1481                              `("QTWEBENGINEPROCESS_PATH" =
1482                                (,qtwebengineprocess))))
1483                          (find-files bin ".*")))
1484              #t)))))
1485     (synopsis "GPS mapping application")
1486     (description
1487      "QMapShack can be used to plan your next outdoor trip or to visualize and
1488 archive all the GPS recordings of your past trips.  It is the successor of the
1489 QLandkarte GT application.")
1490     (home-page "https://github.com/Maproom/qmapshack/wiki")
1491     (license license:gpl3+)))
1492
1493 (define-public readosm
1494   (package
1495     (name "readosm")
1496     (version "1.1.0")
1497     (source
1498      (origin
1499        (method url-fetch)
1500        (uri (string-append "https://www.gaia-gis.it/gaia-sins/"
1501                            "readosm-" version ".tar.gz"))
1502        (sha256
1503         (base32 "1v20pnda67imjd70fn0zw30aar525xicy3d3v49md5cvqklws265"))))
1504     (build-system gnu-build-system)
1505     (inputs
1506      `(("expat" ,expat)
1507        ("zlib" ,zlib)))
1508     (synopsis "Data extractor for OpenStreetMap files")
1509     (description
1510      "ReadOSM is a library to extract valid data from within an OpenStreetMap
1511 input file (in @code{.osm} or @code{.osm.pbf} format).")
1512     (home-page "https://www.gaia-gis.it/fossil/readosm/index")
1513     (license (list license:gpl2+
1514                    license:lgpl2.1+
1515                    license:mpl1.1))))
1516
1517 (define-public spatialite-tools
1518   (package
1519     (name "spatialite-tools")
1520     (version "4.3.0")
1521     (source
1522      (origin
1523        (method url-fetch)
1524        (uri (string-append "https://www.gaia-gis.it/gaia-sins/"
1525                            "spatialite-tools-" version ".tar.gz"))
1526        (sha256
1527         (base32 "12fggjhi8cgwvw8f6nk76f83b8lqkc07abxyj5ap6f2gq2dqafgp"))))
1528     (build-system gnu-build-system)
1529     (native-inputs
1530      `(("pkg-config" ,pkg-config)))
1531     (inputs
1532      `(("expat" ,expat)
1533        ("freexl" ,freexl)
1534        ("geos" ,geos)
1535        ("libspatialite" ,libspatialite)
1536        ("libxml2" ,libxml2)
1537        ("proj.4" ,proj.4)
1538        ("readosm" ,readosm)
1539        ("sqlite" ,sqlite)
1540        ("zlib" ,zlib)))
1541     (synopsis "Collection of command line tools for SpatiaLite")
1542     (description
1543      "@code{spatialite-tools} is a collection of Command Line Interface (CLI)
1544 tools supporting SpatiaLite.")
1545     (home-page "https://www.gaia-gis.it/fossil/spatialite-tools/index")
1546     (license license:gpl3+)))
1547
1548 (define-public virtualpg
1549   (package
1550     (name "virtualpg")
1551     (version "1.0.2")
1552     (source
1553      (origin
1554        (method url-fetch)
1555        (uri (string-append "https://www.gaia-gis.it/gaia-sins/"
1556                            "virtualpg-" version ".tar.gz"))
1557        (sha256
1558         (base32 "0kjipcd08vvn188xmwbs7sw41xcs06x47n2hbqshpjcr51mxbarp"))))
1559     (build-system gnu-build-system)
1560     (inputs
1561      `(("postgresql" ,postgresql)
1562        ("sqlite" ,sqlite)))
1563     (synopsis "Allow SQLite/SpatiaLite to access PostgreSQL/PostGIS tables")
1564     (description
1565      "VirtualPG is a dynamic extension for the SQLite DBMS.  It implements
1566 the VirtualPostgres driver, allowing to directly exchange data between SQLite
1567 and PostgreSQL; if SpatiaLite is available even PostGIS geometries can be
1568 exchanged form one Spatial DBMS and the other.")
1569     (home-page "https://www.gaia-gis.it/fossil/virtualpg/index")
1570     (license (list license:gpl2+
1571                    license:lgpl2.1+
1572                    license:mpl1.1))))
1573
1574 (define-public opencpn
1575   (package
1576     (name "opencpn")
1577     (version "5.0.0")
1578     (source
1579      (origin
1580        (method git-fetch)
1581        (uri (git-reference
1582              (url "https://github.com/OpenCPN/OpenCPN.git")
1583              (commit (string-append "v" version))))
1584        (file-name (git-file-name name version))
1585        (sha256
1586         (base32 "1xv3h6svw9aay5ixpql231md3pf00qxvhg62z88daraf18hlkfja"))))
1587     (build-system cmake-build-system)
1588     (native-inputs
1589      `(("gettext" ,gettext-minimal)
1590        ("pkg-config" ,pkg-config)))
1591     (inputs
1592      `(("bzip2" ,bzip2)
1593        ("cairo" ,cairo)
1594        ("curl" ,curl)
1595        ("glu" ,glu)
1596        ("gtk+" ,gtk+)
1597        ("libarchive" ,libarchive)
1598        ("libelf" ,libelf)
1599        ("libexif" ,libexif)
1600        ("libsndfile" ,libsndfile)
1601        ("lz4" ,lz4)
1602        ("mesa" ,mesa)
1603        ("pango" ,pango)
1604        ("portaudio" ,portaudio)
1605        ("sqlite" ,sqlite)
1606        ("tinyxml" ,tinyxml)
1607        ("wxsvg" ,wxsvg)
1608        ("wxwidgets" ,wxwidgets)
1609        ("xz" ,xz)
1610        ("zlib" ,zlib)))
1611     (arguments
1612      `(#:configure-flags '("-DENABLE_PORTAUDIO=ON"
1613                            "-DENABLE_SNDFILE=ON"
1614                            "-DBUNDLE_TCDATA=ON"
1615                            "-DBUNDLE_GSHHS=CRUDE")
1616        #:tests? #f ; No tests defined
1617        #:phases
1618        (modify-phases %standard-phases
1619          (add-after 'unpack 'fix-build
1620            (lambda _
1621              (substitute* "CMakeLists.txt"
1622                (("set\\(wxWidgets_CONFIG_OPTIONS.*--toolkit=gtk3" all)
1623                 (string-append all " --libs all")))
1624              #t)))))
1625     (synopsis "Chart plotter and marine GPS navigation software")
1626     (description
1627      "OpenCPN is a chart plotter and marine navigation software designed to be
1628 used at the helm station of your boat while underway.  Chart a course and
1629 track your position right from your laptop.")
1630     (home-page "https://opencpn.org/")
1631     (license (list license:asl2.0
1632                    license:cc0
1633                    license:bsd-2
1634                    license:bsd-3
1635                    license:expat
1636                    license:gpl3+
1637                    license:lgpl2.1+
1638                    license:lgpl3+
1639                    license:sgifreeb2.0
1640                    license:zlib))))
1641
1642 (define-public grass
1643   (let* ((version "7.8.2")
1644          (majorminor (string-join (list-head (string-split version #\.) 2) ""))
1645          (grassxx (string-append "grass" majorminor)))
1646     (package
1647       (name "grass")
1648       (version version)
1649       (source
1650        (origin
1651          (method url-fetch)
1652          (uri (string-append "https://grass.osgeo.org/" grassxx
1653                              "/source/grass-" version ".tar.gz"))
1654          (sha256
1655           (base32 "1fwsm99kz0bxvjk7442qq1h45ikrmhba8bqclafb61gqg1q6ymrk"))))
1656       (build-system gnu-build-system)
1657       (inputs
1658        `(("bzip2", bzip2)
1659          ("cairo" ,cairo)
1660          ("fftw" ,fftw)
1661          ("freetype" ,freetype)
1662          ("gdal" ,gdal)
1663          ("geos" ,geos)
1664          ("glu" ,glu)
1665          ("lapack" ,lapack)
1666          ("libpng" ,libpng)
1667          ("libtiff" ,libtiff)
1668          ("mesa" ,mesa)
1669          ("mariadb-dev" ,mariadb "dev")
1670          ("mariadb-lib" ,mariadb "lib")
1671          ("netcdf" ,netcdf)
1672          ("openblas" ,openblas)
1673          ("perl" ,perl)
1674          ("postgresql" ,postgresql)
1675          ("proj.4" ,proj.4)
1676          ("python" ,python)
1677          ("python-dateutil" ,python-dateutil)
1678          ("python-numpy" ,python-numpy)
1679          ("python-wxpython" ,python-wxpython)
1680          ("readline" ,readline)
1681          ("sqlite" ,sqlite)
1682          ("wxwidgets" ,wxwidgets)
1683          ("zlib" ,zlib)
1684          ("zstd" ,zstd "lib")))
1685       (native-inputs
1686        `(("bash" ,bash-minimal)
1687          ("bison" ,bison)
1688          ("flex" ,flex)
1689          ("pkg-config" ,pkg-config)))
1690       (arguments
1691        `(#:tests? #f ; No tests
1692          #:modules ((guix build gnu-build-system)
1693                     ((guix build python-build-system) #:prefix python:)
1694                     (guix build utils))
1695          #:imported-modules (,@%gnu-build-system-modules
1696                              (guix build python-build-system))
1697          #:phases
1698          (modify-phases %standard-phases
1699            (replace 'configure
1700              (lambda* (#:key inputs outputs #:allow-other-keys)
1701                (let ((shell (string-append (assoc-ref inputs "bash")
1702                                            "/bin/bash")))
1703                  (setenv "SHELL" shell)
1704                  (setenv "CONFIG_SHELL" shell)
1705                  (setenv "LDFLAGS" (string-append "-Wl,-rpath -Wl,"
1706                                                   (assoc-ref outputs "out")
1707                                                   "/" ,grassxx "/lib")))
1708                (invoke "./configure"
1709                        (string-append "--prefix="
1710                                       (assoc-ref outputs "out"))
1711                        "--with-blas"
1712                        "--with-bzlib"
1713                        (string-append "--with-freetype-includes="
1714                                       (assoc-ref inputs "freetype")
1715                                       "/include/freetype2")
1716                        (string-append "--with-freetype-libs="
1717                                       (assoc-ref inputs "freetype")
1718                                       "/lib")
1719                        "--with-geos"
1720                        "--with-lapack"
1721                        "--with-mysql"
1722                        (string-append "--with-mysql-includes="
1723                                       (assoc-ref inputs "mariadb-dev")
1724                                       "/include/mysql")
1725                        (string-append "--with-mysql-libs="
1726                                       (assoc-ref inputs "mariadb-lib")
1727                                       "/lib")
1728                        "--with-netcdf"
1729                        "--with-postgres"
1730                        (string-append "--with-proj-share="
1731                                       (assoc-ref inputs "proj.4")
1732                                       "/share/proj")
1733                        "--with-pthread"
1734                        "--with-readline"
1735                        "--with-sqlite"
1736                        "--with-wxwidgets")))
1737            (add-after 'install 'install-links
1738              (lambda* (#:key outputs #:allow-other-keys)
1739                ;; Put links for includes and libraries in the standard places.
1740                (let* ((out (assoc-ref outputs "out"))
1741                       (dir (string-append out "/" ,grassxx)))
1742                  (symlink (string-append dir "/include")
1743                           (string-append out "/include"))
1744                  (symlink (string-append dir "/lib")
1745                           (string-append out "/lib")))
1746                #t))
1747            (add-after 'install-links 'wrap-python
1748              (assoc-ref python:%standard-phases 'wrap)))))
1749       (synopsis "GRASS Geographic Information System")
1750       (description
1751        "GRASS (Geographic Resources Analysis Support System), is a Geographic
1752 Information System (GIS) software suite used for geospatial data management and
1753 analysis, image processing, graphics and maps production, spatial modeling, and
1754 visualization.")
1755       (home-page "https://grass.osgeo.org/")
1756       (license license:gpl2+))))
1757
1758 (define-public saga
1759   (package
1760     (name "saga")
1761     (version "7.6.2")
1762     (source
1763      (origin
1764        (method url-fetch)
1765        (uri (string-append "mirror://sourceforge/saga-gis/SAGA%20-%20"
1766                            (version-major version) "/SAGA%20-%20" version
1767                            "/saga-" version ".tar.gz"))
1768        (sha256
1769         (base32 "09j5magmayq2y620kqa490mfd1kpdp3lng2ifcgbrmssc079ybm0"))))
1770     (build-system gnu-build-system)
1771     (native-inputs
1772      `(("pkg-config" ,pkg-config)
1773        ("swig" ,swig)))
1774     (inputs
1775      `(("curl" ,curl)
1776        ("fftw" ,fftw)
1777        ("gdal" ,gdal)
1778        ("hdf5" ,hdf5)
1779        ("jasper" ,jasper)
1780        ("libharu" ,libharu)
1781        ("libtiff" ,libtiff)
1782        ("opencv" ,opencv)
1783        ("postgresql" ,postgresql)
1784        ("proj.4" ,proj.4)
1785        ("python" ,python)
1786        ("qhull" ,qhull)
1787        ("unixodbc" ,unixodbc)
1788        ("vigra" ,vigra)
1789        ("wxwidgets" ,wxwidgets)))
1790     (arguments
1791      '(#:configure-flags '("--enable-python")))
1792     (synopsis "System for Automated Geoscientific Analyses")
1793     (description
1794      "SAGA (System for Automated Geoscientific Analyses) is a Geographic
1795 Information System (GIS) software.  It has been designed for an easy and
1796 effective implementation of spatial algorithms and it offers a comprehensive,
1797 growing set of geoscientific methods.")
1798     (home-page "http://www.saga-gis.org")
1799     (license (list license:gpl2+ license:lgpl2.1+))))