Subject: [bug#75441] [PATCH 2/3] gnu: Add giflib-5.1.4.

From: ROCKTAKEY <[email-masked]>
Date: Thu, 9 Jan 2025 03:07:33 +0900

Change-Id: I7237db9c86f0e26cc6ceb836cbedc8bb578b072f
---
 gnu/packages/image.scm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm
index 7337a27b88..8a94806f24 100644
--- a/gnu/packages/image.scm
+++ b/gnu/packages/image.scm
@@ -39,6 +39,7 @@
 ;;; Copyright © 2023-2024 Nicolas Goaziou <[email-masked]>
 ;;; Copyright © 2023 Artyom V. Poptsov <[email-masked]>
 ;;; Copyright © 2024 chris <[email-masked]>
+;;; Copyright © 2025 ROCKTAKEY <[email-masked]>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -1076,6 +1077,33 @@ (define-public giflib
     (home-page "http://giflib.sourceforge.net/")
     (license license:x11)))
 
+(define-public giflib-for-siv3d
+  (package
+    (inherit giflib)
+    (version "5.1.4")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://sourceforge/giflib/giflib-"
+                                  version ".tar.bz2"))
+              (sha256
+               (base32
+                "1md83dip8rf29y40cm5r7nn19705f54iraz6545zhwa6y8zyq9yz"))))
+    (arguments
+     (append
+      ;; FIXME: Somehow test failed
+      '(#:tests? #f)
+      (substitute-keyword-arguments (package-arguments giflib)
+        ((#:phases phases)
+         #~(modify-phases #$phases
+             (add-before 'build 'configure
+               (lambda args
+                 (apply (assoc-ref %standard-phases 'configure) args)))
+             (replace 'disable-html-doc-gen
+               (lambda _
+                 (substitute* "doc/Makefile.in"
+                   (("^all: allhtml manpages") ""))
+                 #t)))))))))
+
 (define-public libuemf
   (package
     (name "libuemf")
-- 
2.47.1