| 1 | ;;; GNU Guix --- Functional package management for GNU |
| 2 | ;;; Copyright © 2017, 2018, 2019, 2020 Arun Isaac <arunisaac@systemreboot.net> |
| 3 | ;;; Copyright © 2019, 2020 Christopher Howard <christopher@librehacker.com> |
| 4 | ;;; Copyright © 2019, 2020 Evan Straw <evan.straw99@gmail.com> |
| 5 | ;;; Copyright © 2020 Guillaume Le Vaillant <glv@posteo.net> |
| 6 | ;;; Copyright © 2020 Danny Milosavljevic <dannym@scratchpost.org> |
| 7 | ;;; Copyright © 2020 Charlie Ritter <chewzerita@posteo.net> |
| 8 | ;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr> |
| 9 | ;;; |
| 10 | ;;; This file is part of GNU Guix. |
| 11 | ;;; |
| 12 | ;;; GNU Guix is free software; you can redistribute it and/or modify it |
| 13 | ;;; under the terms of the GNU General Public License as published by |
| 14 | ;;; the Free Software Foundation; either version 3 of the License, or (at |
| 15 | ;;; your option) any later version. |
| 16 | ;;; |
| 17 | ;;; GNU Guix is distributed in the hope that it will be useful, but |
| 18 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of |
| 19 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 20 | ;;; GNU General Public License for more details. |
| 21 | ;;; |
| 22 | ;;; You should have received a copy of the GNU General Public License |
| 23 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
| 24 | |
| 25 | (define-module (gnu packages radio) |
| 26 | #:use-module ((guix licenses) #:prefix license:) |
| 27 | #:use-module (guix packages) |
| 28 | #:use-module (guix download) |
| 29 | #:use-module (guix git-download) |
| 30 | #:use-module (guix utils) |
| 31 | #:use-module (gnu packages algebra) |
| 32 | #:use-module (gnu packages audio) |
| 33 | #:use-module (gnu packages autotools) |
| 34 | #:use-module (gnu packages base) |
| 35 | #:use-module (gnu packages bash) |
| 36 | #:use-module (gnu packages boost) |
| 37 | #:use-module (gnu packages check) |
| 38 | #:use-module (gnu packages documentation) |
| 39 | #:use-module (gnu packages engineering) |
| 40 | #:use-module (gnu packages fltk) |
| 41 | #:use-module (gnu packages gcc) |
| 42 | #:use-module (gnu packages gd) |
| 43 | #:use-module (gnu packages ghostscript) |
| 44 | #:use-module (gnu packages glib) |
| 45 | #:use-module (gnu packages gstreamer) |
| 46 | #:use-module (gnu packages gtk) |
| 47 | #:use-module (gnu packages image) |
| 48 | #:use-module (gnu packages libusb) |
| 49 | #:use-module (gnu packages linux) |
| 50 | #:use-module (gnu packages logging) |
| 51 | #:use-module (gnu packages lua) |
| 52 | #:use-module (gnu packages maths) |
| 53 | #:use-module (gnu packages multiprecision) |
| 54 | #:use-module (gnu packages ncurses) |
| 55 | #:use-module (gnu packages networking) |
| 56 | #:use-module (gnu packages pkg-config) |
| 57 | #:use-module (gnu packages pulseaudio) |
| 58 | #:use-module (gnu packages python) |
| 59 | #:use-module (gnu packages python-science) |
| 60 | #:use-module (gnu packages python-xyz) |
| 61 | #:use-module (gnu packages qt) |
| 62 | #:use-module (gnu packages readline) |
| 63 | #:use-module (gnu packages ruby) |
| 64 | #:use-module (gnu packages sphinx) |
| 65 | #:use-module (gnu packages swig) |
| 66 | #:use-module (gnu packages tcl) |
| 67 | #:use-module (gnu packages tex) |
| 68 | #:use-module (gnu packages texinfo) |
| 69 | #:use-module (gnu packages xml) |
| 70 | #:use-module (gnu packages xorg) |
| 71 | #:use-module (guix build-system cmake) |
| 72 | #:use-module (guix build-system glib-or-gtk) |
| 73 | #:use-module (guix build-system gnu) |
| 74 | #:use-module (guix build-system python) |
| 75 | #:use-module (guix build-system qt)) |
| 76 | |
| 77 | (define-public liquid-dsp |
| 78 | (package |
| 79 | (name "liquid-dsp") |
| 80 | (version "1.3.2") |
| 81 | (source |
| 82 | (origin (method git-fetch) |
| 83 | (uri (git-reference |
| 84 | (url "https://github.com/jgaeddert/liquid-dsp") |
| 85 | (commit (string-append "v" version)))) |
| 86 | (file-name (git-file-name name version)) |
| 87 | (sha256 |
| 88 | (base32 "1n6dbg13q8ga5qhg1yiszwly4jj0rxqr6f1xwm9waaly5z493xsd")))) |
| 89 | (build-system gnu-build-system) |
| 90 | (native-inputs |
| 91 | `(("autoconf" ,autoconf))) |
| 92 | (inputs |
| 93 | `(("fftw" ,fftw) |
| 94 | ("fftwf" ,fftwf))) |
| 95 | (home-page "https://liquidsdr.org") |
| 96 | (synopsis "Signal processing library for software-defined radios") |
| 97 | (description |
| 98 | "Liquid DSP is a @dfn{digital signal processing} (DSP) library designed |
| 99 | specifically for software-defined radios on embedded platforms. The aim is to |
| 100 | provide a lightweight DSP library that does not rely on a myriad of external |
| 101 | dependencies or proprietary and otherwise cumbersome frameworks. All signal |
| 102 | processing elements are designed to be flexible, scalable, and dynamic, |
| 103 | including filters, filter design, oscillators, modems, synchronizers, complex |
| 104 | mathematical operations, and much more.") |
| 105 | (license license:expat))) |
| 106 | |
| 107 | (define-public rtl-sdr |
| 108 | (package |
| 109 | (name "rtl-sdr") |
| 110 | (version "0.6.0") |
| 111 | (source |
| 112 | (origin |
| 113 | (method git-fetch) |
| 114 | (uri (git-reference |
| 115 | (url "https://git.osmocom.org/rtl-sdr/") |
| 116 | (commit version))) |
| 117 | (file-name (git-file-name name version)) |
| 118 | (sha256 |
| 119 | (base32 |
| 120 | "0lmvsnb4xw4hmz6zs0z5ilsah5hjz29g1s0050n59fllskqr3b8k")))) |
| 121 | (build-system cmake-build-system) |
| 122 | (inputs |
| 123 | `(("libusb" ,libusb))) |
| 124 | (native-inputs |
| 125 | `(("pkg-config" ,pkg-config))) |
| 126 | (arguments |
| 127 | `(#:configure-flags '("-DDETACH_KERNEL_DRIVER=ON" |
| 128 | "-DINSTALL_UDEV_RULES=ON") |
| 129 | #:tests? #f ; No tests |
| 130 | #:phases |
| 131 | (modify-phases %standard-phases |
| 132 | (add-after 'unpack 'fix-paths |
| 133 | (lambda* (#:key outputs #:allow-other-keys) |
| 134 | (substitute* "CMakeLists.txt" |
| 135 | (("DESTINATION \"/etc/udev/") |
| 136 | (string-append "DESTINATION \"" |
| 137 | (assoc-ref outputs "out") |
| 138 | "/lib/udev/"))) |
| 139 | #t))))) |
| 140 | (home-page "https://osmocom.org/projects/sdr/wiki/rtl-sdr") |
| 141 | (synopsis "Software defined radio driver for Realtek RTL2832U") |
| 142 | (description "DVB-T dongles based on the Realtek RTL2832U can be used as a |
| 143 | cheap software defined radio, since the chip allows transferring the raw I/Q |
| 144 | samples to the host. @code{rtl-sdr} provides drivers for this purpose. |
| 145 | |
| 146 | The default Linux driver managing DVB-T dongles as TV devices doesn't work for |
| 147 | SDR purposes and clashes with this package. Therefore you must prevent the |
| 148 | kernel from loading it automatically by adding the following line to your |
| 149 | system configuration: |
| 150 | |
| 151 | @lisp |
| 152 | (kernel-arguments '(\"modprobe.blacklist=dvb_usb_rtl28xxu\")) |
| 153 | @end lisp |
| 154 | |
| 155 | To install the rtl-sdr udev rules, you must extend 'udev-service-type' with |
| 156 | this package. E.g.: @code{(udev-rules-service 'rtl-sdr rtl-sdr)}") |
| 157 | (license license:gpl2+))) |
| 158 | |
| 159 | (define-public chirp |
| 160 | (package |
| 161 | (name "chirp") |
| 162 | (version "20200430") |
| 163 | (source |
| 164 | (origin |
| 165 | (method url-fetch) |
| 166 | (uri (string-append "https://trac.chirp.danplanet.com/chirp_daily/daily-" |
| 167 | version "/chirp-daily-" version ".tar.gz")) |
| 168 | (sha256 |
| 169 | (base32 |
| 170 | "060fzplgmpfrk6wkfaasx7phpfk90mmylk6drbwzk4f9r1655vda")))) |
| 171 | (build-system python-build-system) |
| 172 | (inputs |
| 173 | `(("python2-libxml2" ,python2-libxml2) |
| 174 | ("python2-pygtk" ,python2-pygtk) |
| 175 | ("python2-pyserial" ,python2-pyserial))) |
| 176 | (arguments |
| 177 | `(#:python ,python-2)) |
| 178 | (home-page "https://chirp.danplanet.com") |
| 179 | (synopsis "Cross-radio programming tool") |
| 180 | (description "Chirp is a cross-radio programming tool. It supports a |
| 181 | growing list of radios across several manufacturers and allows transferring of |
| 182 | memory contents between them.") |
| 183 | (license (list license:gpl3+ |
| 184 | license:lgpl3+)))) ; chirp/elib_intl.py |
| 185 | |
| 186 | (define-public aptdec |
| 187 | (package |
| 188 | (name "aptdec") |
| 189 | (version "1.7") |
| 190 | (source |
| 191 | (origin |
| 192 | (method git-fetch) |
| 193 | (uri (git-reference |
| 194 | (url "https://github.com/Xerbo/aptdec") |
| 195 | (commit (string-append "v" version)))) |
| 196 | (file-name (git-file-name name version)) |
| 197 | (sha256 |
| 198 | (base32 |
| 199 | "1hf0zb51qc6fyhdjxyij1n3vgwnw3cwksc3r11szbhkml14qjnzk")))) |
| 200 | (build-system gnu-build-system) |
| 201 | (inputs |
| 202 | `(("libpng" ,libpng) |
| 203 | ("libsndfile" ,libsndfile))) |
| 204 | (arguments |
| 205 | `(#:make-flags |
| 206 | (list |
| 207 | (string-append "CC=" |
| 208 | (if ,(%current-target-system) |
| 209 | (string-append (assoc-ref %build-inputs "cross-gcc") |
| 210 | "/bin/" ,(%current-target-system) "-gcc") |
| 211 | "gcc")) |
| 212 | (string-append "PREFIX=" %output) |
| 213 | (string-append "RPM_BUILD_ROOT=" %output)) |
| 214 | #:tests? #f ; no tests |
| 215 | #:phases |
| 216 | (modify-phases %standard-phases |
| 217 | (delete 'configure) |
| 218 | (replace 'install |
| 219 | (lambda* (#:key outputs #:allow-other-keys) |
| 220 | (let ((out (assoc-ref outputs "out"))) |
| 221 | (install-file "atpdec" (string-append out "/bin"))) |
| 222 | #t))))) |
| 223 | (home-page "https://github.com/Xerbo/aptdec") |
| 224 | (synopsis "NOAA Automatic Picture Transmission (APT) decoder") |
| 225 | (description "Aptdec decodes Automatic Picture Transmission (APT) images. |
| 226 | These are medium resolution images of the Earth transmitted by, among other |
| 227 | satellites, the POES NOAA weather satellite series. These transmissions are |
| 228 | on a frequency of 137 MHz. They can be received using an inexpensive antenna |
| 229 | and a dedicated receiver.") |
| 230 | (license license:gpl2+))) |
| 231 | |
| 232 | (define-public redsea |
| 233 | (package |
| 234 | (name "redsea") |
| 235 | (version "0.18") |
| 236 | (source (origin |
| 237 | (method git-fetch) |
| 238 | (uri (git-reference |
| 239 | (url "https://github.com/windytan/redsea") |
| 240 | (commit (string-append "v" version)))) |
| 241 | (file-name (git-file-name name version)) |
| 242 | (sha256 |
| 243 | (base32 |
| 244 | "1y96g0ra2krjb2kypm8s5gdfia45yci4f36klsvyzg8d53v5cwhn")))) |
| 245 | (build-system gnu-build-system) |
| 246 | (arguments |
| 247 | `(#:phases |
| 248 | (modify-phases %standard-phases |
| 249 | ;; The configure.ac file does not explicitly link against libiconv |
| 250 | ;; except on Mac OS, causing the build to fail. This phase comments |
| 251 | ;; out the original AC_SUBST macro (located inside a conditional) and |
| 252 | ;; adds an explicit use of it underneath, so that libiconv is always |
| 253 | ;; linked against. |
| 254 | (add-after 'unpack 'patch-libiconv |
| 255 | (lambda _ |
| 256 | (substitute* "configure.ac" |
| 257 | (("^ +AC_SUBST") |
| 258 | "# AC_SUBST") |
| 259 | (("esac") |
| 260 | "esac\nAC_SUBST([ICONV], [\"-liconv\"])")) |
| 261 | #t))))) |
| 262 | (inputs |
| 263 | `(("libiconv" ,libiconv) |
| 264 | ("libsndfile" ,libsndfile) |
| 265 | ("liquid-dsp" ,liquid-dsp))) |
| 266 | (native-inputs |
| 267 | `(("autoconf" ,autoconf) |
| 268 | ("automake" ,automake))) |
| 269 | (home-page "https://github.com/windytan/redsea") |
| 270 | (synopsis "Lightweight RDS to JSON decoder") |
| 271 | (description "redsea is a lightweight command-line @dfn{FM Radio Data |
| 272 | System} (FM-RDS) decoder. Redsea can be used with any RTL-SDR USB radio stick |
| 273 | with the rtl_fm tool, or any other @dfn{software-defined radio} (SDR) via |
| 274 | csdr, for example. It can also decode raw ASCII bitstream, the hex format |
| 275 | used by RDS Spy, and audio files containing @dfn{multiplex} signals (MPX).") |
| 276 | (license license:expat))) |
| 277 | |
| 278 | (define-public gnuradio |
| 279 | (package |
| 280 | (name "gnuradio") |
| 281 | (version "3.8.0.0") |
| 282 | (source |
| 283 | (origin |
| 284 | (method url-fetch) |
| 285 | (uri (string-append "https://www.gnuradio.org/releases/gnuradio/" |
| 286 | "gnuradio-" version ".tar.xz")) |
| 287 | (sha256 |
| 288 | (base32 "0aw55gf5549b0fz2qdi7vplcmaf92bj34h40s34b2ycnqasv900r")) |
| 289 | (modules '((guix build utils))) |
| 290 | (snippet |
| 291 | '(begin |
| 292 | ;; Delete bundled volk to use the shared one. |
| 293 | (delete-file-recursively "volk") |
| 294 | #t)))) |
| 295 | (build-system cmake-build-system) |
| 296 | (native-inputs |
| 297 | `(("doxygen" ,doxygen) |
| 298 | ("ghostscript" ,ghostscript) |
| 299 | ("orc" ,orc) |
| 300 | ("pkg-config" ,pkg-config) |
| 301 | ("python-cheetah" ,python-cheetah) |
| 302 | ("python-mako" ,python-mako) |
| 303 | ("python-pyzmq" ,python-pyzmq) |
| 304 | ("python-scipy" ,python-scipy) |
| 305 | ("python-sphinx" ,python-sphinx) |
| 306 | ("swig" ,swig) |
| 307 | ("texlive" ,(texlive-union (list texlive-amsfonts |
| 308 | texlive-latex-amsmath |
| 309 | ;; TODO: Add newunicodechar. |
| 310 | texlive-latex-graphics))) |
| 311 | ("xorg-server" ,xorg-server-for-tests))) |
| 312 | (inputs |
| 313 | `(("alsa-lib" ,alsa-lib) |
| 314 | ("boost" ,boost) |
| 315 | ("cairo" ,cairo) |
| 316 | ("codec2" ,codec2) |
| 317 | ("cppzmq" ,cppzmq) |
| 318 | ("fftwf" ,fftwf) |
| 319 | ("gmp" ,gmp) |
| 320 | ("gsl" ,gsl) |
| 321 | ("gsm" ,gsm) |
| 322 | ("gtk+" ,gtk+) |
| 323 | ("jack" ,jack-1) |
| 324 | ("log4cpp" ,log4cpp) |
| 325 | ("pango" ,pango) |
| 326 | ("portaudio" ,portaudio) |
| 327 | ("python" ,python) |
| 328 | ("python-click" ,python-click) |
| 329 | ("python-click-plugins" ,python-click-plugins) |
| 330 | ("python-lxml" ,python-lxml) |
| 331 | ("python-numpy" ,python-numpy) |
| 332 | ("python-pycairo" ,python-pycairo) |
| 333 | ("python-pygobject" ,python-pygobject) |
| 334 | ("python-pyqt" ,python-pyqt) |
| 335 | ("python-pyyaml" ,python-pyyaml) |
| 336 | ("qtbase" ,qtbase) |
| 337 | ("qwt" ,qwt) |
| 338 | ("volk" ,volk) |
| 339 | ("zeromq" ,zeromq))) |
| 340 | (arguments |
| 341 | `(#:modules ((guix build cmake-build-system) |
| 342 | ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:) |
| 343 | ((guix build python-build-system) #:prefix python:) |
| 344 | (guix build utils) |
| 345 | (ice-9 match)) |
| 346 | #:imported-modules (,@%cmake-build-system-modules |
| 347 | (guix build glib-or-gtk-build-system) |
| 348 | (guix build python-build-system)) |
| 349 | #:configure-flags |
| 350 | '("-DENABLE_INTERNAL_VOLK=OFF") |
| 351 | #:phases |
| 352 | (modify-phases %standard-phases |
| 353 | (add-after 'unpack 'fix-paths |
| 354 | (lambda* (#:key inputs #:allow-other-keys) |
| 355 | (let ((qwt (assoc-ref inputs "qwt"))) |
| 356 | (substitute* "cmake/Modules/FindQwt.cmake" |
| 357 | (("/usr/include") |
| 358 | (string-append qwt "/include")) |
| 359 | (("/usr/lib") |
| 360 | (string-append qwt "/lib")) |
| 361 | (("qwt6-\\$\\{QWT_QT_VERSION\\}") |
| 362 | "qwt"))) |
| 363 | (substitute* "cmake/Modules/GrPython.cmake" |
| 364 | (("dist-packages") |
| 365 | "site-packages")) |
| 366 | (substitute* '("gr-vocoder/swig/vocoder_swig.i" |
| 367 | "gr-vocoder/include/gnuradio/vocoder/codec2.h" |
| 368 | "gr-vocoder/include/gnuradio/vocoder/freedv_api.h") |
| 369 | (("<codec2/") |
| 370 | "<")) |
| 371 | #t)) |
| 372 | (add-before 'check 'set-test-environment |
| 373 | (lambda* (#:key inputs #:allow-other-keys) |
| 374 | (setenv "HOME" "/tmp") |
| 375 | (system (string-append (assoc-ref inputs "xorg-server") |
| 376 | "/bin/Xvfb :1 &")) |
| 377 | (setenv "DISPLAY" ":1") |
| 378 | #t)) |
| 379 | (add-after 'install 'wrap-python |
| 380 | (assoc-ref python:%standard-phases 'wrap)) |
| 381 | (add-after 'wrap-python 'wrap-glib-or-gtk |
| 382 | (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)) |
| 383 | (add-after 'wrap-glib-or-gtk 'wrap-with-GI_TYPELIB_PATH |
| 384 | (lambda* (#:key inputs outputs #:allow-other-keys) |
| 385 | (let ((out (assoc-ref outputs "out")) |
| 386 | (paths (map (match-lambda |
| 387 | ((output . directory) |
| 388 | (let ((girepodir (string-append |
| 389 | directory |
| 390 | "/lib/girepository-1.0"))) |
| 391 | (if (file-exists? girepodir) |
| 392 | girepodir |
| 393 | #f)))) |
| 394 | inputs))) |
| 395 | (wrap-program (string-append out "/bin/gnuradio-companion") |
| 396 | `("GI_TYPELIB_PATH" ":" prefix ,(filter identity paths)))) |
| 397 | #t))))) |
| 398 | (native-search-paths |
| 399 | ;; Variables required to find third-party plugins at runtime. |
| 400 | (list (search-path-specification |
| 401 | (variable "GRC_BLOCKS_PATH") |
| 402 | (files '("share/gnuradio/grc/blocks"))) |
| 403 | (search-path-specification |
| 404 | (variable "PYTHONPATH") |
| 405 | (files (list (string-append "lib/python" |
| 406 | (version-major+minor |
| 407 | (package-version python)) |
| 408 | "/site-packages")))))) |
| 409 | (synopsis "Toolkit for software-defined radios") |
| 410 | (description |
| 411 | "GNU Radio is a development toolkit that provides signal processing blocks |
| 412 | to implement software radios. It can be used with external RF hardware to |
| 413 | create software-defined radios, or without hardware in a simulation-like |
| 414 | environment.") |
| 415 | (home-page "https://www.gnuradio.org") |
| 416 | (license license:gpl3+))) |
| 417 | |
| 418 | (define-public gnuradio-osmosdr |
| 419 | (package |
| 420 | (name "gnuradio-osmosdr") |
| 421 | (version "0.2.0") |
| 422 | (source |
| 423 | (origin |
| 424 | (method git-fetch) |
| 425 | (uri (git-reference |
| 426 | (url "https://git.osmocom.org/gr-osmosdr") |
| 427 | (commit (string-append "v" version)))) |
| 428 | (file-name (git-file-name name version)) |
| 429 | (sha256 |
| 430 | (base32 "1rdx7fa0xiq0qmgrrbby7z1bblmqhl9qh9jqpsznzxkx91f17ypd")))) |
| 431 | (build-system cmake-build-system) |
| 432 | (native-inputs |
| 433 | `(("doxygen" ,doxygen) |
| 434 | ("pkg-config" ,pkg-config) |
| 435 | ("python" ,python) |
| 436 | ("python-mako" ,python-mako) |
| 437 | ("python-six" ,python-six) |
| 438 | ("swig" ,swig))) |
| 439 | (inputs |
| 440 | `(("boost" ,boost) |
| 441 | ("fftwf" ,fftwf) |
| 442 | ("gmp" ,gmp) |
| 443 | ("gnuradio" ,gnuradio) |
| 444 | ("hackrf" ,hackrf) |
| 445 | ("log4cpp" ,log4cpp) |
| 446 | ("rtl-sdr" ,rtl-sdr) |
| 447 | ("volk" ,volk))) |
| 448 | (synopsis "GNU Radio block for interfacing with various radio hardware") |
| 449 | (description "This is a block for GNU Radio allowing to use a common API |
| 450 | to access different radio hardware.") |
| 451 | (home-page "https://osmocom.org/projects/gr-osmosdr/wiki/GrOsmoSDR") |
| 452 | (license license:gpl3+))) |
| 453 | |
| 454 | (define-public libosmo-dsp |
| 455 | (package |
| 456 | (name "libosmo-dsp") |
| 457 | (version "0.4.0") |
| 458 | (source |
| 459 | (origin |
| 460 | (method git-fetch) |
| 461 | (uri (git-reference |
| 462 | (url "https://git.osmocom.org/libosmo-dsp") |
| 463 | (commit version))) |
| 464 | (file-name (git-file-name name version)) |
| 465 | (sha256 |
| 466 | (base32 "00plihnpym1gkfpflah8il9463qxzm9kx2f07jyvbkszpj8viq5g")))) |
| 467 | (build-system gnu-build-system) |
| 468 | (native-inputs |
| 469 | `(("autoconf" ,autoconf) |
| 470 | ("automake" ,automake) |
| 471 | ("bash-minimal" ,bash-minimal) |
| 472 | ("doxygen" ,doxygen) |
| 473 | ("libtool" ,libtool) |
| 474 | ("pkg-config" ,pkg-config) |
| 475 | ("texlive" ,(texlive-union (list texlive-amsfonts |
| 476 | texlive-latex-amsmath |
| 477 | ;; TODO: Add newunicodechar. |
| 478 | texlive-latex-graphics))))) |
| 479 | (inputs |
| 480 | `(("fftwf" ,fftwf))) |
| 481 | (arguments |
| 482 | `(#:phases |
| 483 | (modify-phases %standard-phases |
| 484 | (add-after 'unpack 'fix-paths |
| 485 | (lambda* (#:key inputs #:allow-other-keys) |
| 486 | (substitute* "git-version-gen" |
| 487 | (("/bin/sh") |
| 488 | (string-append (assoc-ref inputs "bash") |
| 489 | "/bin/bash"))) |
| 490 | #t))))) |
| 491 | (synopsis "DSP primitives for SDR") |
| 492 | (description |
| 493 | "This a C-language library for common DSP (Digital Signal Processing) |
| 494 | primitives for SDR (Software Defined Radio).") |
| 495 | (home-page "https://osmocom.org/projects/libosmo-dsp") |
| 496 | (license license:gpl2+))) |
| 497 | |
| 498 | (define-public gnuradio-iqbalance |
| 499 | (package |
| 500 | (name "gnuradio-iqbalance") |
| 501 | (version "0.38.1") |
| 502 | (source |
| 503 | (origin |
| 504 | (method git-fetch) |
| 505 | (uri (git-reference |
| 506 | (url "https://git.osmocom.org/gr-iqbal") |
| 507 | (commit (string-append "v" version)))) |
| 508 | (file-name (git-file-name name version)) |
| 509 | (sha256 |
| 510 | (base32 "0ksagwz05p3b0702q7ljq7013xmp0ijp30my9z6s3p7ja8dj42s3")))) |
| 511 | (build-system cmake-build-system) |
| 512 | (native-inputs |
| 513 | `(("doxygen" ,doxygen) |
| 514 | ("pkg-config" ,pkg-config) |
| 515 | ("python" ,python) |
| 516 | ("python-numpy" ,python-numpy) |
| 517 | ("python-six" ,python-six) |
| 518 | ("swig" ,swig))) |
| 519 | (inputs |
| 520 | `(("boost" ,boost) |
| 521 | ("fftwf" ,fftwf) |
| 522 | ("gmp" ,gmp) |
| 523 | ("gnuradio" ,gnuradio) |
| 524 | ("libosmo-dsp" ,libosmo-dsp) |
| 525 | ("log4cpp" ,log4cpp) |
| 526 | ("volk" ,volk))) |
| 527 | (synopsis "GNU Radio block to correct IQ imbalance") |
| 528 | (description |
| 529 | "This is a GNU Radio block to correct IQ imbalance in quadrature |
| 530 | receivers. It's composed of two main block: |
| 531 | @itemize |
| 532 | @item Fix: Given a phase and amplitude error, it will correct a complex signal. |
| 533 | @item Optimize: Attempts to auto-detect the phase and amplitude error to feed |
| 534 | to the fix block above. |
| 535 | @end itemize") |
| 536 | (home-page "https://git.osmocom.org/gr-iqbal/") |
| 537 | (license license:gpl3+))) |
| 538 | |
| 539 | (define-public gqrx |
| 540 | (package |
| 541 | (name "gqrx") |
| 542 | (version "2.12.1") |
| 543 | (source |
| 544 | (origin |
| 545 | (method git-fetch) |
| 546 | (uri (git-reference |
| 547 | (url "https://github.com/csete/gqrx") |
| 548 | (commit (string-append "v" version)))) |
| 549 | (file-name (git-file-name name version)) |
| 550 | (sha256 |
| 551 | (base32 "00alf3q6y313xpx6p7v43vqsphd2x4am4q362lw21bcy9wc4jidw")))) |
| 552 | (build-system qt-build-system) |
| 553 | (native-inputs |
| 554 | `(("pkg-config" ,pkg-config))) |
| 555 | (inputs |
| 556 | `(("alsa-lib" ,alsa-lib) |
| 557 | ("boost" ,boost) |
| 558 | ("fftwf" ,fftwf) |
| 559 | ("gmp" ,gmp) |
| 560 | ("gnuradio" ,gnuradio) |
| 561 | ("gnuradio-iqbalance" ,gnuradio-iqbalance) |
| 562 | ("gnuradio-osmosdr" ,gnuradio-osmosdr) |
| 563 | ("jack" ,jack-1) |
| 564 | ("log4cpp" ,log4cpp) |
| 565 | ("portaudio" ,portaudio) |
| 566 | ("pulseaudio" ,pulseaudio) |
| 567 | ("qtbase" ,qtbase) |
| 568 | ("qtsvg" ,qtsvg) |
| 569 | ("volk" ,volk))) |
| 570 | (arguments |
| 571 | `(#:tests? #f)) ; No tests |
| 572 | (synopsis "Software defined radio receiver") |
| 573 | (description "Gqrx is a software defined radio (SDR) receiver implemented |
| 574 | using GNU Radio and the Qt GUI toolkit.") |
| 575 | (home-page "https://gqrx.dk/") |
| 576 | (license license:gpl3+))) |
| 577 | |
| 578 | (define-public fldigi |
| 579 | (package |
| 580 | (name "fldigi") |
| 581 | (version "4.1.13") |
| 582 | (source |
| 583 | (origin |
| 584 | (method url-fetch) |
| 585 | (uri (string-append "http://www.w1hkj.com/files/fldigi/fldigi-" |
| 586 | version ".tar.gz")) |
| 587 | (sha256 |
| 588 | (base32 "0mlq4z5k3h466plij8hg9xn5xbjxk557g4pw13cplpf32fhng224")))) |
| 589 | (build-system gnu-build-system) |
| 590 | (native-inputs |
| 591 | `(("pkg-config" ,pkg-config))) |
| 592 | (inputs |
| 593 | `(("alsa-lib" ,alsa-lib) |
| 594 | ("fltk" ,fltk) |
| 595 | ("hamlib" ,hamlib) |
| 596 | ("libpng" ,libpng) |
| 597 | ("libsamplerate" ,libsamplerate) |
| 598 | ("libusb" ,libusb) |
| 599 | ("libx11" ,libx11) |
| 600 | ("libxext" ,libxext) |
| 601 | ("libxfixes" ,libxfixes) |
| 602 | ("libxft" ,libxft) |
| 603 | ("portaudio" ,portaudio) |
| 604 | ("pulseaudio" ,pulseaudio))) |
| 605 | (synopsis "Software modem for amateur radio use") |
| 606 | (description |
| 607 | "Fldigi is a software modem for amateur radio use. It is a sound card |
| 608 | based program that is used for both transmitting and receiving data by |
| 609 | connecting the microphone and headphone connections of a computer to some radio |
| 610 | hardware.") |
| 611 | (home-page "http://www.w1hkj.com/") |
| 612 | (license license:gpl3+))) |
| 613 | |
| 614 | (define-public flrig |
| 615 | (package |
| 616 | (name "flrig") |
| 617 | (version "1.3.51") |
| 618 | (source |
| 619 | (origin |
| 620 | (method url-fetch) |
| 621 | (uri (string-append "http://www.w1hkj.com/files/flrig/flrig-" |
| 622 | version ".tar.gz")) |
| 623 | (sha256 |
| 624 | (base32 "0aq4x0ai9q08ypfhzfj2inc4z3q39zq1l6h9as1kil9yn4zbay61")))) |
| 625 | (build-system gnu-build-system) |
| 626 | (native-inputs |
| 627 | `(("pkg-config" ,pkg-config))) |
| 628 | (inputs |
| 629 | `(("fltk" ,fltk) |
| 630 | ("libx11" ,libx11) |
| 631 | ("libxext" ,libxext) |
| 632 | ("libxfixes" ,libxfixes) |
| 633 | ("libxft" ,libxft))) |
| 634 | (synopsis "Radio transceiver control program") |
| 635 | (description |
| 636 | "Flrig is a transceiver control program for amateur radio use. |
| 637 | It provides computer aided control of various radios using a serial |
| 638 | or USB connection.") |
| 639 | (home-page "http://www.w1hkj.com/") |
| 640 | (license license:gpl3+))) |
| 641 | |
| 642 | (define-public flamp |
| 643 | (package |
| 644 | (name "flamp") |
| 645 | (version "2.2.05") |
| 646 | (source |
| 647 | (origin |
| 648 | (method url-fetch) |
| 649 | (uri (string-append "http://www.w1hkj.com/files/flamp/flamp-" |
| 650 | version ".tar.gz")) |
| 651 | (sha256 |
| 652 | (base32 "19z1kghhdf7bq6hi2j0mzlsn2nhpn3gl1a623x3inmsk80yw3ck4")))) |
| 653 | (build-system gnu-build-system) |
| 654 | (native-inputs |
| 655 | `(("pkg-config" ,pkg-config))) |
| 656 | (inputs |
| 657 | `(("fltk" ,fltk) |
| 658 | ("libx11" ,libx11) |
| 659 | ("libxext" ,libxext) |
| 660 | ("libxfixes" ,libxfixes) |
| 661 | ("libxft" ,libxft))) |
| 662 | (synopsis "Tool for AMP file transfer") |
| 663 | (description |
| 664 | "FLAMP is a program for transferring files by radio waves using AMP |
| 665 | (Amateur Multicast Protocol).") |
| 666 | (home-page "http://www.w1hkj.com/") |
| 667 | (license license:gpl3+))) |
| 668 | |
| 669 | (define-public flwrap |
| 670 | (package |
| 671 | (name "flwrap") |
| 672 | (version "1.3.5") |
| 673 | (source |
| 674 | (origin |
| 675 | (method url-fetch) |
| 676 | (uri (string-append "http://www.w1hkj.com/files/flwrap/flwrap-" |
| 677 | version ".tar.gz")) |
| 678 | (sha256 |
| 679 | (base32 "0qqivqkkravcg7j45740xfky2q3k7czqpkj6y364qff424q2pppg")))) |
| 680 | (build-system gnu-build-system) |
| 681 | (native-inputs |
| 682 | `(("pkg-config" ,pkg-config))) |
| 683 | (inputs |
| 684 | `(("fltk" ,fltk) |
| 685 | ("libx11" ,libx11) |
| 686 | ("libxext" ,libxext) |
| 687 | ("libxfixes" ,libxfixes) |
| 688 | ("libxft" ,libxft))) |
| 689 | (synopsis "File encapsulation program") |
| 690 | (description |
| 691 | "Flwrap is a software utility for amateur radio use. Its purpose is to |
| 692 | encapsulate both text and binary files in a way that allows them to be |
| 693 | transmitted over any of several digital modes and verified at the receipt end |
| 694 | for correctness.") |
| 695 | (home-page "http://www.w1hkj.com/") |
| 696 | (license license:gpl3+))) |
| 697 | |
| 698 | (define-public hackrf |
| 699 | ;; Using a git commit because there have been many many commits |
| 700 | ;; since the relase two years ago, but no sign of a promised |
| 701 | ;; release for many months now. |
| 702 | (let ((commit "43e6f99fe8543094d18ff3a6550ed2066c398862") |
| 703 | (revision "0")) |
| 704 | (package |
| 705 | (name "hackrf") |
| 706 | (version (git-version "2018.01.1" revision commit)) |
| 707 | (source |
| 708 | (origin |
| 709 | (method git-fetch) |
| 710 | (uri (git-reference |
| 711 | (url "https://github.com/mossmann/hackrf") |
| 712 | (commit commit))) |
| 713 | (file-name (git-file-name name version)) |
| 714 | (sha256 |
| 715 | (base32 "0avnv693xi0zsnrvkbfn0ln1r3s1iyj0bz7sc3gxay909av0pvbc")))) |
| 716 | (build-system cmake-build-system) |
| 717 | (arguments |
| 718 | '(#:configure-flags |
| 719 | (list "-DUDEV_RULES_GROUP=dialout" |
| 720 | (string-append "-DUDEV_RULES_PATH=" |
| 721 | (assoc-ref %outputs "out") |
| 722 | "/lib/udev/rules.d")) |
| 723 | #:phases |
| 724 | (modify-phases %standard-phases |
| 725 | (add-before 'configure 'enter-source-directory |
| 726 | (lambda _ |
| 727 | (chdir "host") |
| 728 | #t)) |
| 729 | (add-after 'install 'delete-static-library |
| 730 | (lambda* (#:key outputs #:allow-other-keys) |
| 731 | (delete-file (string-append (assoc-ref outputs "out") |
| 732 | "/lib/libhackrf.a")) |
| 733 | #t)) |
| 734 | (add-before 'install-license-files 'leave-source-directory |
| 735 | (lambda _ |
| 736 | (chdir "..") |
| 737 | #t))) |
| 738 | #:tests? #f)) ; no test suite |
| 739 | (native-inputs |
| 740 | `(("pkg-config" ,pkg-config))) |
| 741 | (inputs |
| 742 | `(("fftw" ,fftw) |
| 743 | ("fftwf" ,fftwf) |
| 744 | ("libusb" ,libusb))) |
| 745 | (home-page "https://greatscottgadgets.com/hackrf/") |
| 746 | (synopsis "User-space library and utilities for HackRF SDR") |
| 747 | (description |
| 748 | "Command line utilities and a C library for controlling the HackRF |
| 749 | Software Defined Radio (SDR) over USB. Installing this package installs the |
| 750 | userspace hackrf utilities and C library. To install the hackrf udev rules, |
| 751 | you must extend 'udev-service-type' with this package. E.g.: |
| 752 | @code{(udev-rules-service 'hackrf hackrf #:groups '(\"dialout\"))}.") |
| 753 | (license license:gpl2)))) |
| 754 | |
| 755 | (define-public hamlib |
| 756 | (package |
| 757 | (name "hamlib") |
| 758 | (version "3.3") |
| 759 | (source |
| 760 | (origin |
| 761 | (method url-fetch) |
| 762 | (uri (string-append |
| 763 | "https://github.com/Hamlib/Hamlib/releases/download/" |
| 764 | version "/hamlib-" version ".tar.gz")) |
| 765 | (sha256 |
| 766 | (base32 "10788mgrhbc57zpzakcxv5aqnr2819pcshml6fbh8zvnkja562y9")))) |
| 767 | (build-system gnu-build-system) |
| 768 | (native-inputs |
| 769 | `(("doxygen" ,doxygen) |
| 770 | ("lua" ,lua) |
| 771 | ("pkg-config" ,pkg-config) |
| 772 | ("python-wrapper" ,python-wrapper) |
| 773 | ("swig" ,swig) |
| 774 | ("tcl" ,tcl))) |
| 775 | (inputs |
| 776 | `(("gd" ,gd) |
| 777 | ("libusb" ,libusb) |
| 778 | ("libxml2" ,libxml2) |
| 779 | ("readline" ,readline))) |
| 780 | (arguments |
| 781 | `(#:configure-flags '("--disable-static" |
| 782 | "--with-lua-binding" |
| 783 | "--with-python-binding" |
| 784 | "--with-tcl-binding" |
| 785 | "--with-xml-support"))) |
| 786 | (synopsis "Tools and API to control radios") |
| 787 | (description |
| 788 | "The Ham Radio Control Library (Hamlib) is a project to provide programs |
| 789 | with a consistent Application Programming Interface (API) for controlling the |
| 790 | myriad of radios and rotators available to amateur radio and communications |
| 791 | users.") |
| 792 | (home-page "https://hamlib.github.io/") |
| 793 | (license (list license:gpl2+ license:lgpl2.1+)))) |
| 794 | |
| 795 | (define wsjtx-hamlib |
| 796 | ;; Fork of hamlib with custom patches used by wsjtx. |
| 797 | (package |
| 798 | (inherit hamlib) |
| 799 | (name "wsjtx-hamlib") |
| 800 | (version "2.2.2") |
| 801 | (source |
| 802 | (origin |
| 803 | (method git-fetch) |
| 804 | (uri (git-reference |
| 805 | (url "https://git.code.sf.net/u/bsomervi/hamlib.git") |
| 806 | (commit (string-append "wsjtx-" version)))) |
| 807 | (file-name (git-file-name name version)) |
| 808 | (sha256 |
| 809 | (base32 "01h5ps0yq5vi1x9rkw742gx6a5fj02zhbpi89i412qdfbnyk35cv")))) |
| 810 | (native-inputs |
| 811 | `(("autoconf" ,autoconf) |
| 812 | ("automake" ,automake) |
| 813 | ("libtool" ,libtool) |
| 814 | ("texinfo" ,texinfo) |
| 815 | ,@(package-native-inputs hamlib))) |
| 816 | (arguments |
| 817 | `(#:configure-flags '("--disable-static" |
| 818 | "--with-lua-binding" |
| 819 | "--with-python-binding" |
| 820 | "--with-tcl-binding" |
| 821 | "--with-xml-support") |
| 822 | #:phases |
| 823 | (modify-phases %standard-phases |
| 824 | (add-after 'unpack 'fix-tests |
| 825 | (lambda _ |
| 826 | (substitute* "tests/testloc.c" |
| 827 | (("dmmm2dec\\(deg, mmm, nesw\\);") |
| 828 | "dmmm2dec(deg, mmm, 0, nesw);")) |
| 829 | #t))))))) |
| 830 | |
| 831 | (define-public wsjtx |
| 832 | (package |
| 833 | (name "wsjtx") |
| 834 | (version "2.2.2") |
| 835 | (source |
| 836 | (origin |
| 837 | (method git-fetch) |
| 838 | (uri (git-reference |
| 839 | (url "https://git.code.sf.net/p/wsjt/wsjtx.git") |
| 840 | (commit (string-append "wsjtx-" version)))) |
| 841 | (file-name (git-file-name name version)) |
| 842 | (sha256 |
| 843 | (base32 "0fhws44gg05d9y2al0pcdnxwxwh4bazcfl0g5mq2ks1r7w23wi5x")) |
| 844 | (modules '((guix build utils))) |
| 845 | (snippet |
| 846 | '(begin |
| 847 | ;; Delete bundled boost to use the shared one. |
| 848 | (delete-file-recursively "boost") |
| 849 | #t)))) |
| 850 | (build-system qt-build-system) |
| 851 | (native-inputs |
| 852 | `(("asciidoc" ,asciidoc) |
| 853 | ("gfortran" ,gfortran) |
| 854 | ("pkg-config" ,pkg-config) |
| 855 | ("qttools" ,qttools) |
| 856 | ("ruby-asciidoctor" ,ruby-asciidoctor))) |
| 857 | (inputs |
| 858 | `(("boost" ,boost) |
| 859 | ("fftw" ,fftw) |
| 860 | ("fftwf" ,fftwf) |
| 861 | ("hamlib" ,wsjtx-hamlib) |
| 862 | ("libusb" ,libusb) |
| 863 | ("qtbase" ,qtbase) |
| 864 | ("qtmultimedia" ,qtmultimedia) |
| 865 | ("qtserialport" ,qtserialport))) |
| 866 | (arguments |
| 867 | `(#:tests? #f ; No test suite |
| 868 | #:phases |
| 869 | (modify-phases %standard-phases |
| 870 | (add-after 'unpack 'work-around-runtime-bug |
| 871 | (lambda _ |
| 872 | ;; Some of the programs in this package fail to find symbols |
| 873 | ;; in libm at runtime. Adding libm manually at the end of the |
| 874 | ;; library lists when linking the programs seems to help. |
| 875 | ;; TODO: find exactly what is wrong in the way the programs |
| 876 | ;; are built. |
| 877 | (substitute* "CMakeLists.txt" |
| 878 | (("target_link_libraries \\((.*)\\)" all libs) |
| 879 | (string-append "target_link_libraries (" libs " m)"))) |
| 880 | #t))))) |
| 881 | (synopsis "Weak-signal ham radio communication program") |
| 882 | (description |
| 883 | "WSJT-X implements communication protocols or modes called FT4, FT8, |
| 884 | JT4, JT9, JT65, QRA64, ISCAT, MSK144, and WSPR, as well as one called Echo for |
| 885 | detecting and measuring your own radio signals reflected from the Moon. These |
| 886 | modes were all designed for making reliable, confirmed QSOs under extreme |
| 887 | weak-signal conditions.") |
| 888 | (home-page "https://www.physics.princeton.edu/pulsar/k1jt/wsjtx.html") |
| 889 | (license license:gpl3))) |
| 890 | |
| 891 | (define-public js8call |
| 892 | (package |
| 893 | (inherit wsjtx) |
| 894 | (name "js8call") |
| 895 | (version "2.2.0") |
| 896 | (source |
| 897 | (origin |
| 898 | (method url-fetch) |
| 899 | (uri (string-append "http://files.js8call.com/" version |
| 900 | "/js8call-" version ".tgz")) |
| 901 | (sha256 |
| 902 | (base32 "149sjwc4zg6ckgq26af93p4fxappa4k9dh7rdy67g8ajfjad4cd8")) |
| 903 | (modules '((guix build utils))) |
| 904 | (snippet |
| 905 | '(begin |
| 906 | ;; Delete bundled boost to use the shared one. |
| 907 | (delete-file-recursively "boost") |
| 908 | #t)))) |
| 909 | (build-system qt-build-system) |
| 910 | (native-inputs |
| 911 | `(("asciidoc" ,asciidoc) |
| 912 | ("gfortran" ,gfortran) |
| 913 | ("pkg-config" ,pkg-config) |
| 914 | ("qttools" ,qttools) |
| 915 | ("ruby-asciidoctor" ,ruby-asciidoctor))) |
| 916 | (inputs |
| 917 | `(("boost" ,boost) |
| 918 | ("fftw" ,fftw) |
| 919 | ("fftwf" ,fftwf) |
| 920 | ("hamlib" ,wsjtx-hamlib) |
| 921 | ("libusb" ,libusb) |
| 922 | ("qtbase" ,qtbase) |
| 923 | ("qtmultimedia" ,qtmultimedia) |
| 924 | ("qtserialport" ,qtserialport))) |
| 925 | (arguments |
| 926 | `(#:tests? #f ; No test suite |
| 927 | #:phases |
| 928 | (modify-phases %standard-phases |
| 929 | (add-after 'unpack 'fix-paths |
| 930 | (lambda* (#:key outputs #:allow-other-keys) |
| 931 | (substitute* "CMakeLists.txt" |
| 932 | (("DESTINATION /usr/share") |
| 933 | (string-append "DESTINATION " |
| 934 | (assoc-ref outputs "out") |
| 935 | "/share"))) |
| 936 | #t)) |
| 937 | (add-after 'fix-paths 'work-around-runtime-bug |
| 938 | (lambda _ |
| 939 | ;; Some of the programs in this package fail to find symbols |
| 940 | ;; in libm at runtime. Adding libm manually at the end of the |
| 941 | ;; library lists when linking the programs seems to help. |
| 942 | ;; TODO: find exactly what is wrong in the way the programs |
| 943 | ;; are built. |
| 944 | (substitute* "CMakeLists.txt" |
| 945 | (("target_link_libraries \\((.*)\\)" all libs) |
| 946 | (string-append "target_link_libraries (" libs " m)"))) |
| 947 | #t)) |
| 948 | (add-after 'unpack 'fix-hamlib |
| 949 | (lambda _ |
| 950 | (substitute* "CMake/Modules/Findhamlib.cmake" |
| 951 | (("set \\(ENV\\{PKG_CONFIG_PATH\\}.*\\)") |
| 952 | "set (__pc_path $ENV{PKG_CONFIG_PATH}) |
| 953 | list (APPEND __pc_path \"${__hamlib_pc_path}\") |
| 954 | set (ENV{PKG_CONFIG_PATH} \"${__pc_path}\")")) |
| 955 | (substitute* "HamlibTransceiver.hpp" |
| 956 | (("#ifdef JS8_USE_LEGACY_HAMLIB") |
| 957 | "#if 1")) |
| 958 | #t))))) |
| 959 | (synopsis "Weak-signal ham radio communication program") |
| 960 | (description |
| 961 | "JS8Call is a software using the JS8 digital mode (a derivative of the FT8 |
| 962 | mode) providing weak signal keyboard to keyboard messaging to amateur radio |
| 963 | operators.") |
| 964 | (home-page "http://js8call.com/") |
| 965 | (license license:gpl3))) |
| 966 | |
| 967 | (define-public xnec2c |
| 968 | (package |
| 969 | (name "xnec2c") |
| 970 | (version "4.1.1") |
| 971 | (source |
| 972 | (origin |
| 973 | (method url-fetch) |
| 974 | (uri (string-append "http://www.5b4az.org/pkg/nec2/xnec2c/xnec2c-" |
| 975 | version ".tar.bz2")) |
| 976 | (sha256 |
| 977 | (base32 "1myvlkfybb2ha8l0h96ca3iz206zzy9z5iizm0sbab2zzp78n1r9")))) |
| 978 | (build-system gnu-build-system) |
| 979 | (native-inputs |
| 980 | `(("pkg-config" ,pkg-config))) |
| 981 | (inputs |
| 982 | `(("gtk+" ,gtk+))) |
| 983 | (arguments |
| 984 | `(#:phases |
| 985 | (modify-phases %standard-phases |
| 986 | (add-after 'unpack 'fix-makefile |
| 987 | (lambda* (#:key outputs #:allow-other-keys) |
| 988 | (substitute* '("Makefile.am" "Makefile.in") |
| 989 | ;; The DESTDIR variable does not get replaced the prefix |
| 990 | ;; in the final Makefile, so let's do here. |
| 991 | (("\\$\\(DESTDIR\\)/usr") |
| 992 | (assoc-ref outputs "out"))) |
| 993 | #t)) |
| 994 | (add-after 'fix-makefile 'fix-paths |
| 995 | (lambda* (#:key outputs #:allow-other-keys) |
| 996 | ;; Increase the max length of the path to the glade file, |
| 997 | ;; so that the '/gnu/store/...' path can fit in. |
| 998 | (substitute* '("src/shared.c" "src/shared.h") |
| 999 | (("char xnec2c_glade\\[64\\];") |
| 1000 | "char xnec2c_glade[256];")) |
| 1001 | ;; Fix hard coded references to '/usr/...'. |
| 1002 | (substitute* '("src/geom_edit.c" "src/main.c") |
| 1003 | (("\"/usr") |
| 1004 | (string-append "\"" (assoc-ref outputs "out")))) |
| 1005 | #t))))) |
| 1006 | (synopsis "Antenna modeling software") |
| 1007 | (description |
| 1008 | "Xnec2c is a GTK3-based graphical version of nec2c, a translation to the |
| 1009 | C language of NEC2, the FORTRAN Numerical Electromagnetics Code commonly used |
| 1010 | for antenna simulation and analysis. It can be used to define the geometry of |
| 1011 | an antenna, and then plot the radiation pattern or frequency-related data like |
| 1012 | gain and standing wave ratio.") |
| 1013 | (home-page "http://www.5b4az.org/") |
| 1014 | (license license:gpl3+))) |
| 1015 | |
| 1016 | (define-public dump1090 |
| 1017 | (package |
| 1018 | (name "dump1090") |
| 1019 | (version "3.8.1") |
| 1020 | (source |
| 1021 | (origin |
| 1022 | (method git-fetch) |
| 1023 | (uri (git-reference |
| 1024 | (url "https://github.com/flightaware/dump1090") |
| 1025 | (commit (string-append "v" version)))) |
| 1026 | (file-name (git-file-name name version)) |
| 1027 | (sha256 |
| 1028 | (base32 "0xg8rzrxqklx1m9ncxsd96dlkbjcsxfi2mrb859v50f07xysdyd8")))) |
| 1029 | (build-system gnu-build-system) |
| 1030 | (native-inputs |
| 1031 | `(("pkg-config" ,pkg-config))) |
| 1032 | (inputs |
| 1033 | `(("libusb" ,libusb) |
| 1034 | ("ncurses" ,ncurses) |
| 1035 | ("rtl-sdr" ,rtl-sdr))) |
| 1036 | (arguments |
| 1037 | `(#:test-target "test" |
| 1038 | #:make-flags |
| 1039 | (list (string-append "CC=" ,(cc-for-target)) |
| 1040 | "BLADERF=no") |
| 1041 | #:phases |
| 1042 | (modify-phases %standard-phases |
| 1043 | (delete 'configure) |
| 1044 | (replace 'install |
| 1045 | (lambda* (#:key outputs #:allow-other-keys) |
| 1046 | (let ((bin (string-append (assoc-ref outputs "out") "/bin/"))) |
| 1047 | (install-file "dump1090" bin) |
| 1048 | (install-file "view1090" bin) |
| 1049 | #t)))))) |
| 1050 | (synopsis "Mode S decoder for rtl-sdr devices") |
| 1051 | (description |
| 1052 | "Dump1090 is a Mode S decoder specifically designed for rtl-sdr devices. |
| 1053 | It can be used to decode the ADS-B signals that planes emit to indicate |
| 1054 | their position, altitude, speed, etc.") |
| 1055 | (home-page "https://github.com/flightaware/dump1090") |
| 1056 | (license license:bsd-3))) |
| 1057 | |
| 1058 | (define-public rtl-433 |
| 1059 | (package |
| 1060 | (name "rtl-433") |
| 1061 | (version "20.02") |
| 1062 | (source |
| 1063 | (origin |
| 1064 | (method git-fetch) |
| 1065 | (uri (git-reference |
| 1066 | (url "https://github.com/merbanan/rtl_433") |
| 1067 | (commit version))) |
| 1068 | (file-name (git-file-name name version)) |
| 1069 | (sha256 |
| 1070 | (base32 "11991xky9gawkragdyg27qsf7kw5bhlg7ygvf3fn7ng00x4xbh1z")))) |
| 1071 | (build-system cmake-build-system) |
| 1072 | (native-inputs |
| 1073 | `(("pkg-config" ,pkg-config))) |
| 1074 | (inputs |
| 1075 | `(("libusb" ,libusb) |
| 1076 | ("rtl-sdr" ,rtl-sdr))) |
| 1077 | (synopsis "Decoder for radio transmissions in ISM bands") |
| 1078 | (description |
| 1079 | "This is a generic data receiver, mainly for decoding radio transmissions |
| 1080 | from devices on the 433 MHz, 868 MHz, 315 MHz, 345 MHz and 915 MHz ISM bands.") |
| 1081 | (home-page "https://github.com/merbanan/rtl_433") |
| 1082 | (license license:gpl2+))) |
| 1083 | |
| 1084 | (define-public multimon-ng |
| 1085 | (package |
| 1086 | (name "multimon-ng") |
| 1087 | (version "1.1.8") |
| 1088 | (source |
| 1089 | (origin |
| 1090 | (method git-fetch) |
| 1091 | (uri (git-reference |
| 1092 | (url "https://github.com/EliasOenal/multimon-ng") |
| 1093 | (commit version))) |
| 1094 | (file-name (git-file-name name version)) |
| 1095 | (sha256 |
| 1096 | (base32 "1973xfyvzl1viz19zr83cgqlx5laxbjrca35rqabn6dlb6xb5xk8")))) |
| 1097 | (build-system cmake-build-system) |
| 1098 | (inputs |
| 1099 | `(("libx11" ,libx11) |
| 1100 | ("pulseaudio" ,pulseaudio))) |
| 1101 | (arguments |
| 1102 | '(#:tests? #f)) ; No test suite |
| 1103 | (home-page "https://github.com/EliasOenal/multimon-ng") |
| 1104 | (synopsis "Decoder for digital radio transmission modes") |
| 1105 | (description "Multimon-ng can decode several digital radio transmission |
| 1106 | modes: |
| 1107 | @itemize |
| 1108 | @item POCSAG512, POCSAG1200, POCSAG2400 |
| 1109 | @item FLEX |
| 1110 | @item EAS |
| 1111 | @item UFSK1200, CLIPFSK, AFSK1200, AFSK2400, AFSK2400_2, AFSK2400_3 |
| 1112 | @item HAPN4800 |
| 1113 | @item FSK9600 |
| 1114 | @item DTMF |
| 1115 | @item ZVEI1, ZVEI2, ZVEI3, DZVEI, PZVEI |
| 1116 | @item EEA, EIA, CCIR |
| 1117 | @item MORSE CW |
| 1118 | @item X10 |
| 1119 | @end itemize") |
| 1120 | (license license:gpl2+))) |