1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org>
3 ;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
4 ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
5 ;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
7 ;;; This file is part of GNU Guix.
9 ;;; GNU Guix is free software; you can redistribute it and/or modify it
10 ;;; under the terms of the GNU General Public License as published by
11 ;;; the Free Software Foundation; either version 3 of the License, or (at
12 ;;; your option) any later version.
14 ;;; GNU Guix is distributed in the hope that it will be useful, but
15 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;;; GNU General Public License for more details.
19 ;;; You should have received a copy of the GNU General Public License
20 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
22 (define-module (gnu packages gps)
23 #:use-module (guix packages)
24 #:use-module (guix download)
25 #:use-module (guix git-download)
26 #:use-module (guix build-system gnu)
27 #:use-module ((guix licenses) #:prefix license:)
28 #:use-module (gnu packages)
29 #:use-module (gnu packages base)
30 #:use-module (gnu packages pkg-config)
31 #:use-module (gnu packages compression)
32 #:use-module (gnu packages docbook)
33 #:use-module (gnu packages image)
34 #:use-module (gnu packages xml)
35 #:use-module (gnu packages gtk)
36 #:use-module (gnu packages qt)
37 #:use-module (gnu packages sqlite))
39 (define-public gpsbabel
45 ;; XXX: Downloads from gpsbabel.org are hidden behind a POST, so
46 ;; get it from elsewhere.
48 "mirror://debian/pool/main/g/gpsbabel/gpsbabel_"
49 version ".orig.tar.gz"))
52 "19hykxhyl567gf8qcrl33qhv95w0g4vxw9r3h9b8d8plx9bnaf8l"))
53 (patches (search-patches
54 "gpsbabel-minizip.patch"
55 ;; XXX: Remove this patch on the next release.
56 "gpsbabel-qstring.patch"))
57 (modules '((guix build utils)))
60 ;; Delete files under GPL-compatible licences but never used
61 ;; on GNU systems, rather than bloating the LICENSE field.
62 (delete-file "gui/serial_mac.cc") ; Apple MIT
63 (delete-file "mingw/include/ddk/hidsdi.h") ; public domain
65 (build-system gnu-build-system)
66 ;; TODO: "make doc" requires Docbook & co.
69 '("--with-zlib=system")
70 ;; On i686, 'raymarine.test' fails because of a rounding error:
71 ;; <http://hydra.gnu.org/build/133040>. As a workaround, disable tests
72 ;; on these platforms.
73 ;; FIXME: On x86_64 with -std=gnu++11 tests also fail due to rounding
80 ("qttools" ,qttools)))
83 ("libxml2" ,libxml2))) ;'xmllint' needed for the KML tests
84 (home-page "https://www.gpsbabel.org/")
85 (synopsis "Convert and exchange data with GPS and map programs")
87 "GPSBabel converts waypoints, tracks, and routes between hundreds of
88 popular GPS receivers and mapping programs. It contains extensive data
89 manipulation abilities making it a convenient for server-side processing or as
90 the back-end for other tools. It does not convert, transfer, send, or
92 (license (list license:expat ; shapelib/*.[ch]
93 license:gpl2+)))) ; everything else
95 (define-public gpscorrelate
96 ;; This program is "lightly maintained", so to speak, so we end up taking it
97 ;; directly from its Git repo.
98 (let ((commit "365f6e1b3f"))
100 (name "gpscorrelate")
101 (version (string-append "1.6.1." commit))
105 (url "https://github.com/dfandrich/gpscorrelate")
107 (file-name (git-file-name name version))
110 "006a6l8p38a4h7y2959sqrmjjn29d8pd50zj9nypcp5ph18nybjb"))))
111 (build-system gnu-build-system)
114 (modify-phases %standard-phases
116 (lambda* (#:key inputs outputs #:allow-other-keys)
117 ;; This is a rudimentary build system.
118 (substitute* "Makefile"
119 (("prefix[[:blank:]]*=.*$")
120 (string-append "prefix = " (assoc-ref outputs "out")
129 `(("pkg-config" ,pkg-config)
130 ("docbook-xml" ,docbook-xml)
131 ("docbook-xsl" ,docbook-xsl)
132 ("libxslt" ,libxslt)))
133 (home-page "https://dfandrich.github.io/gpscorrelate/")
134 (synopsis "GPS photo correlation tool to geo-localize images")
136 "GPS Correlate is a program to match a recorded GPS track with the EXIF
137 tags in digital camera photos, and update the EXIF tags with the location that
138 the photo was taken. It does this by using the timestamp in the photo and
139 finding a data point in the GPS track that matches, or interpolating a point
140 between two other data points.")
141 (license license:gpl2+))))
150 (uri (string-append "mirror://gnu/gama/gama-"
154 "0nmc6mkd55nryfffq5k9c09dhkbq6bfs06af8ammhbh5jzdn3s36"))))
155 (build-system gnu-build-system)
156 (arguments '(#:parallel-tests? #f)) ; race condition
158 `(("libxml2" ,libxml2)))
162 (home-page "https://www.gnu.org/software/gama")
163 (synopsis "Adjustment of geodetic networks")
165 "GNU Gama is a program for the adjustment of geodetic networks. It is
166 useful in measurements where Global Positioning System (GPS) is not available,
167 such as underground. It features the ability to adjust in local Cartesian
168 coordinates as well as partial support for adjustments in global coordinate systems.")
169 (license license:gpl3+)))
171 (define-public gpxsee
178 (url "https://github.com/tumic0/GPXSee")
180 (file-name (git-file-name name version))
183 "1mkfhb2c9qafjpva600nyn6yik49l4q1k6id1xvrci37wsn6ijav"))))
184 (build-system gnu-build-system)
187 (modify-phases %standard-phases
189 ;; Use lrelease to convert TS translation files into QM files.
190 (lambda* (#:key inputs outputs #:allow-other-keys)
191 (for-each (lambda (file)
192 (invoke "lrelease" file))
193 (find-files "lang" "\\.ts"))
195 (string-append "PREFIX="
196 (assoc-ref outputs "out"))))))))
198 `(("qtbase" ,qtbase)))
200 `(("qttools" ,qttools)))
201 (home-page "https://www.gpxsee.org")
202 (synopsis "GPS log file viewer and analyzer")
204 "GPXSee is a Qt-based GPS log file viewer and analyzer that supports
205 all common GPS log file formats.")
206 (license license:gpl3)))