From 3a9f4e15adbe2551fecd15daf391b0478876a22b Mon Sep 17 00:00:00 2001
From: Andreas Enge <andreas@enge.fr>
Date: Sat, 26 Jul 2025 12:32:26 +0200
Subject: [PATCH] gnu: uniutils: Fix build with gcc-14.

* gnu/packages/textutils.scm (uniutils)[arguments]
<#:configure-flags>: Add CFLAGS.
<#:phases>{gcc14}: New phase.

Change-Id: I7f8eddf584d5006b9be1a07ec5a48197b54884fe
---
 gnu/packages/textutils.scm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/textutils.scm b/gnu/packages/textutils.scm
index a54a7636102acd0d45247ef1c067f4db2bf5576a..c693e043c4507f1ea1d7a3193b682e9847b38458 100644
--- a/gnu/packages/textutils.scm
+++ b/gnu/packages/textutils.scm
@@ -506,9 +506,23 @@ useful when it is desired to reformat numbers.
         (base32 "0z4ibnd2zzya489vl84cfh82bmdwdhf0isf1myqwrs3s9s0vqyyn"))))
     (build-system gnu-build-system)
     (arguments
-     (list #:configure-flags #~(list "--disable-dependency-tracking")
+     (list #:configure-flags
+           #~(list "--disable-dependency-tracking"
+                   "CFLAGS=-g -O2 -Wno-error=implicit-int")
            #:phases
            #~(modify-phases %standard-phases
+               (add-before 'build 'gcc14
+                 (lambda _
+                   (substitute* "uniname.c"
+                     (("#include <unistd.h>" all)
+                       (string-append all "\n#include <ctype.h>")))
+                   (substitute* "unifuzz.c"
+                     (("#include <unistd.h>" all)
+                       (string-append all "\n#include <time.h>"))
+                     (("^Emit") "void Emit"))
+                   (substitute* "putu8.c"
+                     (("void" all)
+                       (string-append "#include <stdio.h>\n" all)))))
                (add-after 'build 'fix-paths
                  (lambda* (#:key outputs inputs #:allow-other-keys)
                    (let ((out (assoc-ref outputs "out"))