[bug#74232] [PATCH rust-team 25/25] gnu: Add rust-zbus-4.

[Giacomo Leidi]

* gnu/packages/crates-io.scm (rust-zbus-4): New variable;
(rust-zbus-3): inherit from rust-zbus-4.

Change-Id: I3afcc0c3b07284932a329e22880dda160a32272b
---
 gnu/packages/crates-io.scm | 86 +++++++++++++++++++++++++++++++++++---
 1 file changed, 80 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/crates-io.scm b/gnu/packages/crates-io.scm
index ebebe0f525..55a2203451 100644
--- a/gnu/packages/crates-io.scm
+++ b/gnu/packages/crates-io.scm
@@ -94685,8 +94685,87 @@ (define-public rust-zbase32-0.1
     (description "This package provides an implementation of zbase32.")
     (license license:lgpl3+)))
 
+(define-public rust-zbus-4
+  (package
+    (name "rust-zbus")
+    (version "4.4.0")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (crate-uri "zbus" version))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32 "09f7916lp7haxv1y5zgcg99ny15whi6dn3waf1afcafxx8mh35xv"))
+       (modules '((guix build utils)))
+       (snippet
+        '(begin
+           (substitute* "Cargo.toml"
+             ;; Patch async-io version
+             (("2\\.3\\.2") "2.3.1")
+             ;; Patch async-trait version
+             (("0\\.1\\.80") "0.1.77")
+             ;; Patch enumflags2 version
+             (("0\\.7\\.9") "0.7.7")
+             ;; Patch serde_repr version
+             (("0\\.1\\.19") "0.1.18")
+             ;; Patch ntest version
+             (("0\\.9\\.2") "0.9.0")
+             ;; Patch test-log version
+             (("0\\.2\\.16") "0.2.11"))))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:tests? #f                      ; Not all files included.
+       #:cargo-inputs (("rust-async-broadcast" ,rust-async-broadcast-0.7)
+                       ("rust-async-executor" ,rust-async-executor-1.11)
+                       ("rust-async-fs" ,rust-async-fs-2)
+                       ("rust-async-io" ,rust-async-io-2)
+                       ("rust-async-lock" ,rust-async-lock-3)
+                       ("rust-async-process" ,rust-async-process-2)
+                       ("rust-async-recursion" ,rust-async-recursion-1.1)
+                       ("rust-async-task" ,rust-async-task-4)
+                       ("rust-async-trait" ,rust-async-trait-0.1)
+                       ("rust-blocking" ,rust-blocking-1.6)
+                       ("rust-enumflags2" ,rust-enumflags2-0.7)
+                       ("rust-event-listener" ,rust-event-listener-5)
+                       ("rust-futures-core" ,rust-futures-core-0.3)
+                       ("rust-futures-sink" ,rust-futures-sink-0.3)
+                       ("rust-futures-util" ,rust-futures-util-0.3)
+                       ("rust-hex" ,rust-hex-0.4)
+                       ("rust-nix" ,rust-nix-0.29)
+                       ("rust-ordered-stream" ,rust-ordered-stream-0.2)
+                       ("rust-rand" ,rust-rand-0.8)
+                       ("rust-serde" ,rust-serde-1)
+                       ("rust-serde-repr" ,rust-serde-repr-0.1)
+                       ("rust-sha1" ,rust-sha1-0.10)
+                       ("rust-static-assertions" ,rust-static-assertions-1)
+                       ("rust-tokio" ,rust-tokio-1)
+                       ("rust-tokio-vsock" ,rust-tokio-vsock-0.4)
+                       ("rust-tracing" ,rust-tracing-0.1)
+                       ("rust-uds-windows" ,rust-uds-windows-1)
+                       ("rust-vsock" ,rust-vsock-0.5)
+                       ("rust-windows-sys" ,rust-windows-sys-0.52)
+                       ("rust-xdg-home" ,rust-xdg-home-1.1)
+                       ("rust-zbus-macros" ,rust-zbus-macros-4)
+                       ("rust-zbus-names" ,rust-zbus-names-3)
+                       ("rust-zbus-xml" ,rust-zbus-xml-4)
+                       ("rust-zvariant" ,rust-zvariant-4))
+       #:cargo-development-inputs
+       (("rust-async-std" ,rust-async-std-1)
+        ("rust-doc-comment" ,rust-doc-comment-0.3)
+        ("rust-futures-util" ,rust-futures-util-0.3)
+        ("rust-ntest" ,rust-ntest-0.9)
+        ("rust-tempfile" ,rust-tempfile-3)
+        ("rust-test-log" ,rust-test-log-0.2)
+        ("rust-tokio" ,rust-tokio-1)
+        ("rust-tracing-subscriber" ,rust-tracing-subscriber-0.3))))
+     (home-page "https://github.com/dbus2/zbus/";)
+     (synopsis "API for D-Bus communication")
+     (description "This package provides an API for D-Bus communication.")
+     (license license:expat)))
+
 (define-public rust-zbus-3
   (package
+    (inherit rust-zbus-4)
     (name "rust-zbus")
     (version "3.14.1")
     (source
@@ -94696,7 +94775,6 @@ (define-public rust-zbus-3
        (file-name (string-append name "-" version ".tar.gz"))
        (sha256
         (base32 "0j5rxgszrmkk5pbpwccrvj3gflwqw8jv8wfx9v84qbl75l53kpii"))))
-    (build-system cargo-build-system)
     (arguments
      `(#:tests? #f      ; Not all files included.
        #:cargo-inputs
@@ -94746,11 +94824,7 @@ (define-public rust-zbus-3
         ("rust-tempfile" ,rust-tempfile-3)
         ("rust-test-log" ,rust-test-log-0.2)
         ("rust-tokio" ,rust-tokio-1)
-        ("rust-tracing-subscriber" ,rust-tracing-subscriber-0.3))))
-    (home-page "https://github.com/dbus2/zbus/";)
-    (synopsis "API for D-Bus communication")
-    (description "This package provides an API for D-Bus communication.")
-    (license license:expat)))
+        ("rust-tracing-subscriber" ,rust-tracing-subscriber-0.3))))))
 
 (define-public rust-zbus-1
   (package
-- 
2.46.0