;;; SPDX-License-Identifier: GPL-3.0-or-later ;;; Copyright © 2022 Guillaume Le Vaillant <glv@posteo.net> (define-module (nongnu packages radio) #:use-module (gnu packages gcc) #:use-module (gnu packages linux) #:use-module (gnu packages radio) #:use-module (guix build-system cmake) #:use-module (guix download) #:use-module (guix gexp) #:use-module (guix git-download) #:use-module (guix licenses) #:use-module (guix packages) #:use-module (guix utils) #:use-module (ice-9 match) #:use-module (nonguix build-system binary) #:use-module (nonguix licenses)) (define-public sdrplay (package (name "sdrplay") (version "3.07.1") (source (origin (method url-fetch) (uri (string-append "https://www.sdrplay.com/software/" "SDRplay_RSP_API-Linux-" version ".run")) (sha256 (base32 "1a25c7rsdkcjxr7ffvx2lwj7fxdbslg9qhr8ghaq1r53rcrqgzmf")))) (build-system binary-build-system) (supported-systems '("i686-linux" "x86_64-linux")) (inputs `(("eudev" ,eudev) ("gcc:lib" ,gcc "lib"))) (arguments (let ((arch (match (or (%current-target-system) (%current-system)) ("i686-linux" "i686") ("x86_64-linux" "x86_64") (_ "UNSUPPORTED"))) (major (version-major version)) (major-minor (version-major+minor version))) (list #:patchelf-plan #~(list (list (string-append #$arch "/libsdrplay_api.so." #$major-minor) '("gcc:lib")) (list (string-append #$arch "/sdrplay_apiService") '("eudev" "gcc:lib"))) #:install-plan #~(list '("66-mirics.rules" "lib/udev/rules.d/66-mirics.rules") '("inc" "include") (list (string-append #$arch "/libsdrplay_api.so." #$major-minor) (string-append "lib/libsdrplay_api.so." #$major-minor)) (list (string-append #$arch "/sdrplay_apiService") "bin/sdrplay_apiService") (list "sdrplay_license.txt" (string-append "share/doc/sdrplay-" #$version "/license.txt"))) #:phases #~(modify-phases %standard-phases (replace 'unpack (lambda* (#:key inputs #:allow-other-keys) (let ((source-script (assoc-ref inputs "source"))) (invoke "sh" source-script "--noexec" "--target" "source") (chdir "source")))) (add-after 'install 'create-library-links (lambda _ (let* ((lib (string-append #$output "/lib/libsdrplay_api.so")) (lib-major (string-append lib "." #$major)) (lib-major-minor (string-append lib "." #$major-minor))) (symlink lib-major-minor lib-major) (symlink lib-major lib)))))))) (home-page "https://www.sdrplay.com") (synopsis "API for SDRplay RSP devices") (description "This package provides the library and API service for using SDRplay RSP devices. To install the udev rules, you must extend @code{udev-service-type} with this package. E.g.: @code{(udev-rules-service 'sdrplay sdrplay)}") (license (nonfree (string-append "file:///share/doc/sdrplay-" version "/license.txt"))))) (define-public soapysdrplay3 (let ((commit "9e5c80c45454db56b8b10bb997369f37e750631b") (revision "1")) (package (name "soapysdrplay3") (version (git-version "0.4.1" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/pothosware/SoapySDRPlay3") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "1sl3i1id0fily7qfm0yihxsaqy4f4gr85vl5ip05azhhbrnmnayx")))) (build-system cmake-build-system) (inputs (list sdrplay soapysdr)) (arguments `(#:tests? #f)) ; No test suite (home-page "https://github.com/pothosware/SoapySDRPlay3/wiki") (synopsis "SoapySDR SDRplay module") (description "This package provides SDRplay devices support to the SoapySDR library.") (license expat))))