From fcbfc559b104305fca44991492f472c5acc3b7ea Mon Sep 17 00:00:00 2001
From: Jake Forster <jakecameron.forster@gmail.com>
Date: Sat, 7 Feb 2026 16:38:32 +1030
Subject: [PATCH] gnu: itk-snap: Improve reproducibility.

* gnu/packages/image-processing.scm (itk-snap): Improve reproducibility.
[arguments]<#:phases>{make-reproducible}: Patch @CMAKE_HOST_SYSTEM@,
@CMAKE_HOST_SYSTEM_PROCESSOR@.  Patch compile dates in c3d and greedy
submodules.  Move to after 'prepare-submodules phase.
{prepare-submodules}: Copy instead of symlink c3d and greedy.

Change-Id: I491f2fad852dd9dc1233f8d7e1428380fdbe6b21
Signed-off-by: Andreas Enge <andreas@enge.fr>
---
 gnu/packages/image-processing.scm | 31 ++++++++++++++++++++-----------
 1 file changed, 20 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/image-processing.scm b/gnu/packages/image-processing.scm
index cd1fe633d5..cad0f970fe 100644
--- a/gnu/packages/image-processing.scm
+++ b/gnu/packages/image-processing.scm
@@ -1612,26 +1612,35 @@ combine the information contained in both.")
 |MeshWorkspace|SegmentationMesh|VolumeRendering|Reloading|4DToMC|MCTo4D\
 |DeformationGrid)")
                  ""))))
-          (add-after 'unpack 'make-reproducible
-            (lambda _
-              (substitute* "CMakeLists.txt"
-                (("TODAY\\(SNAP_VERSION_COMPILE_DATE\\)")
-                 "SET(SNAP_VERSION_COMPILE_DATE \"(removed for reproducibility)\")"))))
           (add-after 'unpack 'prepare-submodules
             (lambda _
-              (rmdir "Submodules/c3d")
-              (symlink #$(this-package-native-input "c3d-checkout")
-                       "Submodules/c3d")
+              ;; Copy submodule instead of symlink because it is patched in
+              ;; 'make-reproducible phase.
+              (copy-recursively #$(this-package-native-input "c3d-checkout")
+                                "Submodules/c3d")
               (rmdir "Submodules/digestible")
               (symlink #$(this-package-native-input "digestible-checkout")
                        "Submodules/digestible")
-              (rmdir "Submodules/greedy")
-              (symlink #$(this-package-native-input "greedy-checkout")
-                       "Submodules/greedy")))
+              (copy-recursively #$(this-package-native-input "greedy-checkout")
+                                "Submodules/greedy")))
           (add-after 'unpack 'remove-bundled-jsoncpp
             (lambda _
               (substitute* "CMakeLists.txt"
                 (("  Common/JSon/jsoncpp\\.cpp") ""))))
+          (add-after 'prepare-submodules 'make-reproducible
+            (lambda _
+              (substitute* "CMakeLists.txt"
+                (("TODAY\\(SNAP_VERSION_COMPILE_DATE\\)")
+                 "SET(SNAP_VERSION_COMPILE_DATE \"(removed for reproducibility)\")"))
+              (substitute* "Common/SNAPCommon.cxx.in"
+                (("@CMAKE_HOST_SYSTEM@ @CMAKE_HOST_SYSTEM_PROCESSOR@")
+                 "(removed for reproducibility)"))
+              (substitute* "Submodules/c3d/ConvertImageVersion.cxx.in"
+                (("@CONVERT3D_VERSION_COMPILE_DATE@")
+                 "(removed for reproducibility)"))
+              (substitute* "Submodules/greedy/src/GreedyVersion.cxx.in"
+                (("@GREEDY_VERSION_COMPILE_DATE@")
+                 "(removed for reproducibility)"))))
           (add-before 'check 'prepare-tests
             (lambda _
               ;; Needed by at least one test.