01/02: gnu: guile-gnutls: Update to 4.0.0.

[guix-commits]

civodul pushed a commit to branch core-updates
in repository guix.

commit 5c731fee60e8bb308d1426e2401b220ff1f833fd
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Dec 20 19:00:15 2023 +0100

    gnu: guile-gnutls: Update to 4.0.0.
    
    * gnu/packages/tls.scm (guile-gnutls): Update to 4.0.0.
    [source]: Remove “gnutls-cross.patch”.
    [arguments]: Add #:make-flags.
    * gnu/packages/patches/gnutls-cross.patch: Delete file.
    * gnu/local.mk (dist_patch_DATA): Remove it.
    
    Change-Id: Ic4432e2d5ca37af5aa20cdf7e4e456afe2b37537
---
 gnu/local.mk                            |  1 -
 gnu/packages/patches/gnutls-cross.patch | 82 ---------------------------------
 gnu/packages/tls.scm                    | 13 ++++--
 3 files changed, 8 insertions(+), 88 deletions(-)

diff --git a/gnu/local.mk b/gnu/local.mk
index 27cf31e5c3..44acec988d 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -1353,7 +1353,6 @@ dist_patch_DATA =                                         
\
   %D%/packages/patches/gnupg-default-pinentry.patch            \
   %D%/packages/patches/gnupg-1-build-with-gcc10.patch          \
   %D%/packages/patches/gnutls-skip-trust-store-test.patch      \
-  %D%/packages/patches/gnutls-cross.patch                      \
   %D%/packages/patches/gobject-introspection-absolute-shlib-path.patch \
   %D%/packages/patches/gobject-introspection-absolute-shlib-path-1.72.patch \
   %D%/packages/patches/gobject-introspection-cc.patch          \
diff --git a/gnu/packages/patches/gnutls-cross.patch 
b/gnu/packages/patches/gnutls-cross.patch
deleted file mode 100644
index 82d08da24e..0000000000
--- a/gnu/packages/patches/gnutls-cross.patch
+++ /dev/null
@@ -1,82 +0,0 @@
-Not sent upstream.
-
-From e23de62e28f64599148ff06e439fac116a391299 Mon Sep 17 00:00:00 2001
-From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
-Date: Fri, 10 Apr 2020 07:24:48 +0200
-Subject: [PATCH] guile: Cross build fix.
-
-To cross-build, both the host guile and the native guile-for-build
-must be available.  If the native guile is not available, no snarfing
-is done and the guile cross build is skipped.
-
-During the cross-build gnutls.scm does not load when compliling
-extra.scm, becase of missing definitions from guile-gnutls-v-2.
-
-* guile/modules/gnutls.in (protocol/ssl-3 protocol/tls-1.0,
-protocol/tls-1.1, credentials/anonymous, cipher/rijndael-256-cbc,
-cipher/rijndael-128-cbc, cipher/rijndael-cbc, cipher/arcfour-128,
-certificate-verify/allow-any-x509-v1-ca-certificate,
-certificate-verify/allow-x509-v1-ca-certificate): Define to #f
-initially.  When "GNUTLS_GUILE_CROSS_COMPILING" not set, set! to value
-from "guile-gnutls-v-2" load-extension C module.
----
- guile/modules/gnutls.in | 40 +++++++++++++++++++++++++++-------------
- 1 file changed, 27 insertions(+), 13 deletions(-)
-
-diff --git a/guile/modules/gnutls.in b/guile/modules/gnutls.in
-index 6461c404a..954e315de 100644
---- a/guile/modules/gnutls.in
-+++ b/guile/modules/gnutls.in
-@@ -564,22 +564,36 @@ This defines 'variable' as an alias for 'alias', and 
emits a warning when
-                    (identifier? #'id)
-                    #'alias))))))))))
- 
--
- ;; Renaming.
--(define protocol/ssl-3 protocol/ssl3)
--(define protocol/tls-1.0 protocol/tls1-0)
--(define protocol/tls-1.1 protocol/tls1-1)
-+(define protocol/ssl-3 #f)
-+(define protocol/tls-1.0 #f)
-+(define protocol/tls-1.1 #f)
- 
- ;; Aliases.
--(define credentials/anonymous   credentials/anon)
--(define cipher/rijndael-256-cbc cipher/aes-256-cbc)
--(define cipher/rijndael-128-cbc cipher/aes-128-cbc)
--(define cipher/rijndael-cbc     cipher/aes-128-cbc)
--(define cipher/arcfour-128      cipher/arcfour)
--(define certificate-verify/allow-any-x509-v1-ca-certificate
--  certificate-verify/allow-any-x509-v1-ca-crt)
--(define certificate-verify/allow-x509-v1-ca-certificate
--  certificate-verify/allow-x509-v1-ca-crt)
-+(define credentials/anonymous   #f)
-+(define cipher/rijndael-256-cbc #f)
-+(define cipher/rijndael-128-cbc #f)
-+(define cipher/rijndael-cbc     #f)
-+(define cipher/arcfour-128      #f)
-+(define certificate-verify/allow-any-x509-v1-ca-certificate #f)
-+(define certificate-verify/allow-x509-v1-ca-certificate #f)
-+
-+(unless (getenv "GNUTLS_GUILE_CROSS_COMPILING")
-+  ;; Renaming.
-+  (set! protocol/ssl-3 protocol/ssl3)
-+  (set! protocol/tls-1.0 protocol/tls1-0)
-+  (set! protocol/tls-1.1 protocol/tls1-1)
-+
-+  ;; Aliases.
-+  (set! credentials/anonymous   credentials/anon)
-+  (set! cipher/rijndael-256-cbc cipher/aes-256-cbc)
-+  (set! cipher/rijndael-128-cbc cipher/aes-128-cbc)
-+  (set! cipher/rijndael-cbc     cipher/aes-128-cbc)
-+  (set! cipher/arcfour-128      cipher/arcfour)
-+  (set! certificate-verify/allow-any-x509-v1-ca-certificate
-+    certificate-verify/allow-any-x509-v1-ca-crt)
-+  (set! certificate-verify/allow-x509-v1-ca-certificate
-+    certificate-verify/allow-x509-v1-ca-crt))
- 
- ;; Deprecated OpenPGP bindings.
- (define-deprecated certificate-type/openpgp)
--- 
-2.26.0
-
diff --git a/gnu/packages/tls.scm b/gnu/packages/tls.scm
index c8efd2e009..3dd412a4c5 100644
--- a/gnu/packages/tls.scm
+++ b/gnu/packages/tls.scm
@@ -327,7 +327,7 @@ required structures.")
     ;; This package supersedes the Guile bindings that came with GnuTLS until
     ;; version 3.7.8 included.
     (name "guile-gnutls")
-    (version "3.7.12")
+    (version "4.0.0")
     (home-page "https://gitlab.com/gnutls/guile/";)
     (source (origin
               ;; url-fetch is used here to avoid a circular dependency with
@@ -335,12 +335,11 @@ required structures.")
               (method url-fetch)
               (uri (string-append
                     "https://gitlab.com/gnutls/guile/uploads/";
-                    "3fe12c208bdc6155c5116cf5eac7a2ad"
+                    "9060bc55069cedb40ab46cea49b439c0"
                     "/guile-gnutls-" version ".tar.gz"))
               (sha256
                (base32
-                "0dp3zsbnwgb4q4p8n6i5vnlwq52v5hp8f5c44ngyag89fcaz2fjx"))
-              (patches (search-patches "gnutls-cross.patch"))))
+                "0fdjmy9vfjwk2v616nan1zz6iy9i086vrh5mdcsfqxi00ckbjk2v"))))
     (build-system gnu-build-system)
     (arguments
      (list
@@ -353,7 +352,11 @@ required structures.")
               (string-append "--with-guile-site-ccache-dir="
                              
"$(libdir)/guile/$(GUILE_EFFECTIVE_VERSION)/site-ccache")
               (string-append "--with-guile-extension-dir="
-                             
"$(libdir)/guile/$(GUILE_EFFECTIVE_VERSION)/extensions"))))
+                             
"$(libdir)/guile/$(GUILE_EFFECTIVE_VERSION)/extensions"))
+
+      ;; The 'gnutls' package currently lacks support for SRP, making this
+      ;; test fail.
+      #:make-flags #~'("XFAIL_TESTS=tests/srp-base64.scm")))
     (native-inputs
      (list libtool
            pkg-config