gnu: datefudge: Update to 1.26.

* gnu/packages/time.scm (datefudge): Update to 1.26.
[source]: Update source URIs.  Remove patch.
[arguments]: Adjust make-flags to allow cross-compiling and set the
version string.  Remove custom 'patch-makefile phase.
* gnu/packages/patches/datefudge-gettimeofday.patch: Remove file.
* gnu/local.mk (dist_patch_DATA): Remove it.

Change-Id: I8b53f9a9c3eb900ce5bceaa864ed701fb3cd3dc4

2 files changed, 12 insertions, 35 deletions

diff --git a/gnu/packages/patches/datefudge-gettimeofday.patch b/gnu/packages/patches/datefudge-gettimeofday.patch
deleted file mode 100644
index 11c7640869..0000000000
--- a/gnu/packages/patches/datefudge-gettimeofday.patch
+++ /dev/null
@@ -1,13 +0,0 @@
-Add the 'restrict' qualifier to match the 'gettimeofday' declaration found
-in glibc 2.31.
-
---- datefudge-1.23/datefudge.c	2020-02-17 22:35:21.343341725 +0100
-+++ datefudge-1.23/datefudge.c	2020-02-17 22:35:49.619117874 +0100
-@@ -78,6 +78,6 @@
-     return 0;
- }
- 
--int gettimeofday(struct timeval *x, struct timezone *y) {
-+int gettimeofday(struct timeval *restrict x, void *restrict y) {
-     return __gettimeofday(x,y);
- }
diff --git a/gnu/packages/time.scm b/gnu/packages/time.scm
index d1be004340..dce37f3df4 100644
--- a/gnu/packages/time.scm
+++ b/gnu/packages/time.scm
@@ -2,7 +2,7 @@
 ;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
 ;;; Copyright © 2013, 2017, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
-;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2021 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2015-2019, 2021, 2024 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2015, 2017 Leo Famulari <leo@famulari.name>
 ;;; Copyright © 2015, 2017 Cyril Roelandt <tipecaml@gmail.com>
 ;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com>
@@ -64,6 +64,7 @@
   #:use-module (guix build-system python)
   #:use-module (guix download)
   #:use-module (guix gexp)
+  #:use-module (guix utils)
   #:use-module (guix git-download)
   #:use-module (guix licenses)
   #:use-module (guix packages))
@@ -580,9 +581,7 @@ printing the returned time and/or setting the system clock.")
 (define-public datefudge
   (package
     (name "datefudge")
-    ;; XXX When updating this package, make sure to do something about the
-    ;; archive.org backup URI.
-    (version "1.23")
+    (version "1.26")
     (source (origin
               ;; Source code is available from
               ;; <https://salsa.debian.org/debian/datefudge.git>.  However,
@@ -590,34 +589,25 @@ printing the returned time and/or setting the system clock.")
               ;; (since Git -> GnuTLS -> datefudge).
               (method url-fetch)
               (uri (list
-                     ;; For some reason this tarball was removed from Debian's
-                     ;; servers. Remove this archive.org URL when updating
-                     ;; datefudge, or add the new tarball to archive.org and
-                     ;; update the URL.
                      (string-append
-                       "https://archive.org/download/datefudge_" version
-                       ".tar_202112/" "datefudge_" version ".tar.xz")
+                       "mirror://debian/pool/main/d/datefudge/datefudge_"
+                       version ".tar.xz")
+                     ;; Update the Debian snapshot URL when updating the package.
                      (string-append
-                      "mirror://debian/pool/main/d/datefudge/datefudge_"
-                      version ".tar.xz")))
+                       "https://snapshot.debian.org/archive/debian/"
+                       "20240115T092401Z/pool/main/d/datefudge/"
+                       "datefudge_1.26.tar.xz")))
               (sha256
                (base32
-                "0ifnlb0mc8qc2kb5042pbz0ns6rwcb7201di8wyrsphl0yhnhxiv"))
-              (patches (search-patches "datefudge-gettimeofday.patch"))))
+                "09cjds76gzkwk6ssmsk3cgkcfhglfi9kmbahi1h17v4311v432iz"))))
     (build-system gnu-build-system)
     (arguments
      `(#:test-target "test"
-       #:make-flags (list "CC=gcc"
+       #:make-flags (list (string-append "CC=" ,(cc-for-target))
+                          (string-append "VERSION=" ,version)
                           (string-append "prefix=" (assoc-ref %outputs "out")))
        #:phases
        (modify-phases %standard-phases
-         (add-after 'unpack 'patch-makefile
-           (lambda _
-             (substitute* "Makefile"
-               ((" -o root -g root") "")
-               (("VERSION := \\$\\(shell dpkg-parsechangelog .*")
-                (string-append "VERSION = " ,version)))
-             #t))
          (delete 'configure))))
     (native-inputs
      (list perl))