10/66: gnu: Add rust-alsa-0.7.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit a0640794b4ee1e7f340a25f963883551b9a3b2db
Author: Steve George <steve@futurile.net>
AuthorDate: Mon Oct 23 23:20:55 2023 +0100

    gnu: Add rust-alsa-0.7.
    
    * gnu/packages/crates-io.scm (rust-alsa-0.7): New variable.
    
    Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
    Change-Id: I8b2c8ea71a38d492bdb9cfa65271657c7b651034
---
 gnu/packages/crates-io.scm | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/gnu/packages/crates-io.scm b/gnu/packages/crates-io.scm
index 2ed7f0cd10..cbe9acdee8 100644
--- a/gnu/packages/crates-io.scm
+++ b/gnu/packages/crates-io.scm
@@ -3092,6 +3092,45 @@ be used with the stdlib.")
     (description "Mirror of Rust's allocator API.")
     (license (list license:expat license:asl2.0))))
 
+(define-public rust-alsa-0.7
+  (package
+    (name "rust-alsa")
+    (version "0.7.1")
+    (source (origin
+              (method url-fetch)
+              (uri (crate-uri "alsa" version))
+              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0iwbdgb6lr81iji9sr4f91mys24pia5avnkgbkv8kxzhvkc2lmp2"))))
+    (build-system cargo-build-system)
+    (arguments
+     (list #:cargo-test-flags `(list "--release"
+                                     ;; Not the doc tests.
+                                     "--lib" "--bins" "--tests"
+                                     "--"
+                                     ;; These try to use the audio interface
+                                     "--skip=pcm::drop"
+                                     "--skip=pcm::info_from_default"
+                                     "--skip=pcm::playback_to_default"
+                                     "--skip=pcm::record_from_default"
+                                     "--skip=seq::print_seqs"
+                                     "--skip=seq::seq_loopback"
+                                     "--skip=seq::seq_portsubscribeiter"
+                                     "--skip=seq::seq_subscribe")
+           #:cargo-inputs `(("rust-alsa-sys" ,rust-alsa-sys-0.3)
+                            ("rust-bitflags" ,rust-bitflags-1)
+                            ("rust-libc" ,rust-libc-0.2)
+                            ("rust-nix" ,rust-nix-0.24))))
+    (native-inputs (list pkg-config alsa-lib))
+    (home-page "https://github.com/diwic/alsa-rs";)
+    (synopsis "Thin and safe wrapper around ALSA")
+    (description
+     "A thin and safe wrapper around ALSA.  Provides APIs for
+many parts of ALSA including audio playback, audio recording, HCtl API, raw
+MIDI and MIDI sequencer.")
+    (license license:expat)))
+
 (define-public rust-alsa-sys-0.3
   (package
     (name "rust-alsa-sys")