;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2018 Charlie Ritter <chewzerita@posteo.net>
;;;
;;; 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 ham-radio)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (gnu packages algebra)
  #:use-module (gnu packages boost)
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages libusb)
  #:use-module (gnu packages maths)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages python)
  #:use-module (gnu packages qt)
  #:use-module (gnu packages swig)
  #:use-module (guix build-system cmake))

(define-public gnuradio
  (package
    (name "gnuradio")
    (version "3.7.9.3")
    (source (origin
              (method url-fetch)
              (uri (string-append
                    "https://gnuradio.org/releases/gnuradio/gnuradio-"
                    version ".tar.gz"))
              (sha256
               (base32
                "1fpvfslfffgvpszzmlzkjgm93cm16fqanbgllykm5qjas1201d10"))))
    (build-system cmake-build-system)
    (inputs
     `(("boost" ,boost)
       ("fftw" ,fftw)
       ("gsl" ,gsl)
       ("qt" ,qt-4)
       ("qwt" ,qwt)))
    (propagated-inputs
     `(("python" ,python-2)
       ("python2-pygtk" ,python2-pygtk)
       ("python2-pyqt" ,python2-pyqt)
       ("python2-lxml" ,python2-lxml)
       ("python2-cheetah" ,python2-cheetah)
       ("python2-numpy" ,python2-numpy)
       ("swig" ,swig)))
    (home-page "https://gnuradio.org/")
    (synopsis "GNU Radio is a free and open-source toolkit for software radio")
    (description "GNU Radio is a free & open-source software development
toolkit that provides signal processing blocks to implement software radios.
It can be used with readily-available low-cost external RF hardware to create
software-defined radios, or without hardware in a simulation-like environment.
It is widely used in hobbyist, academic and commercial environments to support
both wireless communications research and real-world radio systems.")
    (license license:gpl3+)))

(define-public rtl-sdr
  (package
    (name "rtl-sdr")
    (version "0.5.3")
    (source
     (origin
       (method url-fetch)
       (uri (string-append "https://cgit.osmocom.org/rtl-sdr/snapshot/rtl-sdr-"
                           version ".tar.xz"))
       (sha256
        (base32
         "08awca3v28sa4lxym4r81pzf0la0j86wbmpyhv3xd53an9gkpjy9"))))
    (build-system cmake-build-system)
    (inputs
     `(("libusb" ,libusb)))
    (native-inputs
     `(("pkg-config" ,pkg-config)))
    (arguments
     `(#:configure-flags '("-DDETACH_KERNEL_DRIVER=ON")
       #:tests? #f)) ; No tests
    (home-page "https://osmocom.org/projects/sdr/wiki/rtl-sdr")
    (synopsis "Software defined radio driver for Realtek RTL2832U")
    (description "DVB-T dongles based on the Realtek RTL2832U can be used as a
cheap software defined radio, since the chip allows transferring the raw I/Q
samples to the host.  @code{rtl-sdr} provides drivers for this purpose.")
    (license license:gpl2+)))