464/470: gnu: rust-sct-0.5: Fix build.

[guix-commits]

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

commit b0028b2c85fbbcfc6c4de891baa15318ca497849
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Tue Apr 25 14:18:39 2023 +0300

    gnu: rust-sct-0.5: Fix build.
    
    * gnu/packages/crates-io.scm (rust-sct-0.5)[arguments]: Add a phase to
    build the curve25519 tables.
    [native-inputs]: Add clang, perl, python-2.
---
 gnu/packages/crates-io.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/crates-io.scm b/gnu/packages/crates-io.scm
index fee345a94a..d993d73d03 100644
--- a/gnu/packages/crates-io.scm
+++ b/gnu/packages/crates-io.scm
@@ -54220,7 +54220,18 @@ Pwrite traits from the scroll crate.")
     (arguments
      `(#:cargo-inputs
        (("rust-ring" ,rust-ring-0.14)
-        ("rust-untrusted" ,rust-untrusted-0.6))))))
+        ("rust-untrusted" ,rust-untrusted-0.6))
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'build 'build-curve25519-tables
+           (lambda* (#:key vendor-dir #:allow-other-keys)
+             (with-directory-excursion
+               (dirname (car (find-files vendor-dir 
"make_curve25519_tables.py")))
+               (with-output-to-file "curve25519_tables.h"
+                 (lambda _
+                   (invoke "python" "make_curve25519_tables.py")))))))))
+    (native-inputs
+     (list clang perl python-2))))
 
 (define-public rust-sct-0.4
   (package