123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297 |
- ;;; GNU Guix --- Functional package management for GNU
- ;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org>
- ;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
- ;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
- ;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
- ;;; Copyright © 2020 Guillaume Le Vaillant <glv@posteo.net>
- ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
- ;;; Copyright © 2020 Marius Bakke <marius@gnu.org>
- ;;; Copyright © 2021 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
- ;;; Copyright © 2021 Efraim Flashner <efraim@flashner.co.il>
- ;;;
- ;;; This file is part of GNU Guix.
- ;;;
- ;;; GNU Guix is free software; you can redistribute it and/or modify it
- ;;; under the terms of the GNU General Public License as published by
- ;;; the Free Software Foundation; either version 3 of the License, or (at
- ;;; your option) any later version.
- ;;;
- ;;; GNU Guix is distributed in the hope that it will be useful, but
- ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
- ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- ;;; GNU General Public License for more details.
- ;;;
- ;;; You should have received a copy of the GNU General Public License
- ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
- (define-module (gnu packages gps)
- #:use-module (guix packages)
- #:use-module (guix download)
- #:use-module (guix git-download)
- #:use-module (guix build-system gnu)
- #:use-module (guix build-system scons)
- #:use-module ((guix licenses) #:prefix license:)
- #:use-module (guix utils)
- #:use-module (gnu packages)
- #:use-module (gnu packages algebra)
- #:use-module (gnu packages base)
- #:use-module (gnu packages compression)
- #:use-module (gnu packages docbook)
- #:use-module (gnu packages glib)
- #:use-module (gnu packages gtk)
- #:use-module (gnu packages image)
- #:use-module (gnu packages libusb)
- #:use-module (gnu packages linux)
- #:use-module (gnu packages ncurses)
- #:use-module (gnu packages pkg-config)
- #:use-module (gnu packages python)
- #:use-module (gnu packages python-xyz)
- #:use-module (gnu packages qt)
- #:use-module (gnu packages sqlite)
- #:use-module (gnu packages xml))
- (define-public gpsbabel
- (package
- (name "gpsbabel")
- (version "1.7.0")
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://github.com/gpsbabel/gpsbabel")
- (commit (string-append
- "gpsbabel_"
- (string-replace-substring version "." "_")))))
- (file-name (git-file-name name version))
- (sha256
- (base32
- "010g0vd2f5knpq5p7qfnl31kv3r8m5sjdsafcinbj5gh02j2nzpy"))
- (patches (search-patches "gpsbabel-fix-i686-test.patch"))
- (modules '((guix build utils)))
- (snippet
- '(begin
- (delete-file-recursively "zlib")
- (substitute* "Makefile.in"
- ((" zlib/z.*\\.h") ""))
- ;; Delete files under GPL-compatible licences but never used
- ;; on GNU systems, rather than bloating the LICENSE field.
- (delete-file "gui/serial_mac.cc") ; Apple MIT
- (delete-file "mingw/include/ddk/hidsdi.h") ; public domain
- #t))))
- (build-system gnu-build-system)
- ;; TODO: "make doc" requires Docbook & co.
- (arguments
- `(#:configure-flags
- '("--with-zlib=system")))
- (inputs
- `(("expat" ,expat)
- ("libusb" ,libusb)
- ("qtbase" ,qtbase-5)
- ("zlib" ,zlib)))
- (native-inputs
- `(("which" ,which)
- ("qttools" ,qttools)
- ("libxml2" ,libxml2))) ;'xmllint' needed for the KML tests
- (home-page "https://www.gpsbabel.org/")
- (synopsis "Convert and exchange data with GPS and map programs")
- (description
- "GPSBabel converts waypoints, tracks, and routes between hundreds of
- popular GPS receivers and mapping programs. It contains extensive data
- manipulation abilities making it a convenient for server-side processing or as
- the back-end for other tools. It does not convert, transfer, send, or
- manipulate maps.")
- (license (list license:expat ; shapelib/*.[ch]
- license:gpl2+)))) ; everything else
- (define-public gpscorrelate
- (package
- (name "gpscorrelate")
- (version "2.0")
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://github.com/dfandrich/gpscorrelate")
- (commit version)))
- (file-name (git-file-name name version))
- (sha256
- (base32
- "1kvybhfnygz79q3pgwc1q2x4ccmnsfscx2hzxnmzjbnc6arnqari"))))
- (build-system gnu-build-system)
- (arguments
- `(#:phases
- (modify-phases %standard-phases
- (replace 'configure
- (lambda* (#:key inputs outputs #:allow-other-keys)
- ;; This is a rudimentary build system.
- (substitute* "Makefile"
- (("prefix[[:blank:]]*=.*$")
- (string-append "prefix = " (assoc-ref outputs "out")
- "\n")))
- #t)))))
- (inputs
- `(("gtk+" ,gtk+)
- ("libxml2" ,libxml2)
- ("exiv2" ,exiv2)))
- (native-inputs
- `(("pkg-config" ,pkg-config)
- ("docbook-xml" ,docbook-xml)
- ("docbook-xsl" ,docbook-xsl)
- ("libxslt" ,libxslt)))
- (home-page "https://dfandrich.github.io/gpscorrelate/")
- (synopsis "GPS photo correlation tool to geo-localize images")
- (description
- "GPS Correlate is a program to match a recorded GPS track with the EXIF
- tags in digital camera photos, and update the EXIF tags with the location that
- the photo was taken. It does this by using the timestamp in the photo and
- finding a data point in the GPS track that matches, or interpolating a point
- between two other data points.")
- (license license:gpl2+)))
- (define-public gama
- (package
- (name "gama")
- (version "2.14")
- (source
- (origin
- (method url-fetch)
- (uri (string-append "mirror://gnu/gama/gama-"
- version ".tar.gz"))
- (sha256
- (base32
- "04mhbgpqbynnmm8ww4k2yk1w2j66c276dns9xwn8cvrq58kjimln"))
- (modules '((guix build utils)))
- (snippet
- '(begin
- (delete-file-recursively "lib/expat")
- (for-each delete-file (find-files "doc/fig" "\\.pdf$"))
- #t))))
- (build-system gnu-build-system)
- (arguments '(#:parallel-tests? #f)) ; race condition
- (native-inputs
- `(("libxml2" ,libxml2)))
- (inputs
- `(("expat" ,expat)
- ("sqlite" ,sqlite)))
- (home-page "https://www.gnu.org/software/gama")
- (synopsis "Adjustment of geodetic networks")
- (description
- "GNU Gama is a program for the adjustment of geodetic networks. It is
- useful in measurements where Global Positioning System (GPS) is not available,
- such as underground. It features the ability to adjust in local Cartesian
- coordinates as well as partial support for adjustments in global coordinate systems.")
- (license license:gpl3+)))
- (define-public gpxsee
- (package
- (name "gpxsee")
- (version "7.37")
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://github.com/tumic0/GPXSee")
- (commit version)))
- (file-name (git-file-name name version))
- (sha256
- (base32
- "0fpb43smh0kwic5pdxs46c0hkqj8g084h72pa024x1my6w12y9b8"))))
- (build-system gnu-build-system)
- (arguments
- '(#:phases
- (modify-phases %standard-phases
- (replace 'configure
- ;; Use lrelease to convert TS translation files into QM files.
- (lambda* (#:key inputs outputs #:allow-other-keys)
- (for-each (lambda (file)
- (invoke "lrelease" file))
- (find-files "lang" "\\.ts"))
- (invoke "qmake"
- (string-append "PREFIX="
- (assoc-ref outputs "out"))))))))
- (inputs
- `(("qtbase" ,qtbase-5)))
- (native-inputs
- `(("qttools" ,qttools)))
- (home-page "https://www.gpxsee.org")
- (synopsis "GPS log file viewer and analyzer")
- (description
- "GPXSee is a Qt-based GPS log file viewer and analyzer that supports all
- common GPS log file formats. It can display multiple tracks on various on-
- and off-line maps. You can easily add more maps and graph other captured data
- such as elevation, speed, heart rate, power, temperature, and gear shifts.")
- (license license:gpl3)))
- (define-public gpsd
- (package
- (name "gpsd")
- (version "3.23")
- (source
- (origin
- (method url-fetch)
- (uri (string-append "https://download-mirror.savannah.gnu.org"
- "/releases/gpsd/gpsd-" version ".tar.xz"))
- (sha256
- (base32 "1px9im0qfn8k7mnvjcw5myakzd7mad2drwyzji400hpwyswjjr73"))))
- (build-system scons-build-system)
- (native-inputs
- `(("bc" ,bc)
- ("pkg-config" ,pkg-config)))
- (inputs
- `(("bluez" ,bluez)
- ("dbus" ,dbus)
- ("gtk+" ,gtk+)
- ("libcap" ,libcap)
- ("libusb" ,libusb)
- ("ncurses" ,ncurses)
- ("python" ,python)
- ("python-pycairo" ,python-pycairo)
- ("python-pygobject" ,python-pygobject)
- ("python-pyserial" ,python-pyserial)
- ("python-wrapper" ,python-wrapper)
- ("qtbase" ,qtbase-5)))
- (arguments
- `(#:scons-flags
- (list (string-append "prefix=" %output)
- (let ((version ,(version-major+minor (package-version python))))
- (string-append "python_libdir=" %output
- "/lib/python" version
- "/site-packages"))
- "qt_versioned=5")
- #:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'fix-build
- (lambda* (#:key outputs #:allow-other-keys)
- (setenv "TAR" "noop")
- (substitute* "SConscript"
- (("envs = \\{\\}")
- "envs = os.environ"))
- #t))
- (add-after 'install 'wrap-python-scripts
- (lambda* (#:key inputs outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (pycairo (assoc-ref inputs "python-pycairo"))
- (pygobject (assoc-ref inputs "python-pygobject"))
- (pyserial (assoc-ref inputs "python-pyserial"))
- (sitedir (lambda (package)
- (string-append package
- "/lib/python"
- ,(version-major+minor
- (package-version python))
- "/site-packages")))
- (pythonpath (string-join (map sitedir
- (list out pycairo pygobject
- pyserial))
- ":")))
- (for-each (lambda (script)
- (wrap-program (string-append out "/bin/" script)
- `("GUIX_PYTHONPATH" ":" prefix (,pythonpath))))
- '("gegps" "gpscat" "gpsfake" "gpsprof"
- "ubxtool" "xgps" "xgpsspeed" "zerk")))
- #t)))))
- (synopsis "GPS service daemon")
- (description
- "@code{gpsd} is a service daemon that monitors one or more GPSes or AIS
- receivers attached to a host computer through serial or USB ports, making all
- data on the location/course/velocity of the sensors available to be queried on
- TCP port 2947 of the host computer.")
- (home-page "https://gpsd.gitlab.io/gpsd/")
- (license license:bsd-2)))
|