443/470: gnu: rust-ring-0.16: Remove pregenerated files.

[guix-commits]

efraim pushed a commit to branch rust-team
in repository guix.

commit 884835786d212e99a090963d2ac3261dce970318
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Mon Mar 13 13:24:56 2023 +0200

    gnu: rust-ring-0.16: Remove pregenerated files.
    
    * gnu/packages/crates-io.scm (rust-ring-0.16)[source]: Add snippet to
    remove pregenerated files and add fake .git directory.
    [native-inputs]: Add perl.
    [supported-systems]: New field.
    * gnu/packages/rust-apps.scm (tealdeer)[native-inputs]: Add perl.
---
 gnu/packages/crates-io.scm | 17 ++++++++++++++++-
 gnu/packages/rust-apps.scm |  3 ++-
 2 files changed, 18 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/crates-io.scm b/gnu/packages/crates-io.scm
index 4a2bc1824e..5bf45bb4e7 100644
--- a/gnu/packages/crates-io.scm
+++ b/gnu/packages/crates-io.scm
@@ -82,6 +82,7 @@
   #:use-module (gnu packages multiprecision)
   #:use-module (gnu packages nettle)
   #:use-module (gnu packages pcre)
+  #:use-module (gnu packages perl)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages pulseaudio)
   #:use-module (gnu packages python)
@@ -48924,7 +48925,15 @@ functionality as retain but gives mutable borrow to 
the predicate.")
        (uri (crate-uri "ring" version))
        (file-name (string-append name "-" version ".tar.gz"))
        (sha256
-        (base32 "1z682xp7v38ayq9g9nkbhhfpj6ygralmlx7wdmsfv8rnw99cylrh"))))
+        (base32 "1z682xp7v38ayq9g9nkbhhfpj6ygralmlx7wdmsfv8rnw99cylrh"))
+       (modules '((guix build utils)))
+       (snippet
+        '(begin
+           (delete-file-recursively "pregenerated")
+           ;; Pretend this isn't a relase tarball.
+           (with-output-to-file ".git"
+             (lambda _
+                (format #t "")))))))
     (build-system cargo-build-system)
     (arguments
      `(#:tests? #false                  ;missing file
@@ -48940,9 +48949,15 @@ functionality as retain but gives mutable borrow to 
the predicate.")
        #:cargo-development-inputs
        (("rust-libc" ,rust-libc-0.2)
         ("rust-wasm-bindgen-test" ,rust-wasm-bindgen-test-0.3))))
+    (native-inputs
+     (list perl))
     (home-page "https://github.com/briansmith/ring";)
     (synopsis "Safe, fast, small crypto using Rust")
     (description "This package provided safe, fast, small crypto using Rust.")
+    ;; For a mostly complete list of supported systems see:
+    ;; 
https://github.com/briansmith/ring/blob/main/.github/workflows/ci.yml#L170
+    (supported-systems (list "aarch64-linux" "armhf-linux"
+                             "i686-linux" "x86_64-linux"))
     (license (list license:isc license:openssl))))
 
 (define-public rust-ring-0.14
diff --git a/gnu/packages/rust-apps.scm b/gnu/packages/rust-apps.scm
index 188bf5627c..4d157b2dd8 100644
--- a/gnu/packages/rust-apps.scm
+++ b/gnu/packages/rust-apps.scm
@@ -71,6 +71,7 @@
   #:use-module (gnu packages networking)
   #:use-module (gnu packages ssh)
   #:use-module (gnu packages pcre)
+  #:use-module (gnu packages perl)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages pulseaudio)
   #:use-module (gnu packages python-xyz)
@@ -2239,7 +2240,7 @@ daemon which executes them.")
         ("rust-predicates" ,rust-predicates-2)
         ("rust-tempfile" ,rust-tempfile-3))))
     (native-inputs
-     (list pkg-config))
+     (list perl pkg-config))
     (inputs
      (list openssl))
     (home-page "https://github.com/dbrgn/tealdeer/";)